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Les reliures Pom’s 








Pom'’s vous sert de référence, 
et à ce titre vous le consultez souvent. 


Pour faciliter le rangement en 
bibliothèque et la consultation, Pom’s 
vous propose des reliures toilées 
réunissant 6 numéros, soit un an de 
documentation. 


Une fois reliées, les revues forment un 
livre agréable à utiliser, insensible à la 
“rs ds | 


TOPIQUES PASCAL est un livre qui vous permet 
d’acquérir la maîtrise complète de votre Apple en . 
€ à 7 Ces reliures sont couleur Bordeaux, le 


PASCAL. Ce livre présente: 
, 
— le fonctionnement des périphériques et les logo Pom's est frappé sur le dos etun 
techniques PASCAL pour les gérer efficacement aplat est réservé pour noter l'année. 


(gestion directe du clavier, multifenêtage, gestion : : ï 

de plusieurs curseurs, inversion directe de l'écran, La reliure se fait par brides. 
test de la disponibilité de l’imprimante, copie de la 
page texte ou graphique, utilisation de l’Image 
Writer, paramétrage de la carte Super série, 
communications, redirection de l’écran vers la 
disquette, de l’imprimante vers l’écran) 

— les extensions UCSD pour gérer la mémoire 
(tableaux dynamiques, tableaux creux, éditeur de 
texte, tableur, objet pointé de taille variable, 
codeur LISP) ou les disquettes (fichier 
dynamique, fiche de taille variabie à accès direct) 

— les moyens pour réaliser de vastes programmes 
(morcellement du texte, segmentation du code, 
librairies, gestion des erreurs, générateur de 
programmes, générateurs de générateurs, traces, 
types abstraits, programmation orientée objet) 

— le fonctionnement système et les détails de 
l’implémentation Apple (types, formats fichiers, 
plans mémoire, adresses du BIOS et de 
l'interprète, appels système). 


ne 





En tout 848 pages, 141 programmes, 247 figures, un 
index complet. 


Envoyez votre commande accompagnée du chèque à: 


L'INSTITUT PASCAL 


26 rue Lamartine - 75009 PARIS - Tel. 42.85.10.82 Reliures Pom ? S 
___ TOPIQUES PASCAL (290F TTC, étranger +20F) 
___ les 4 disquettes source (100F TTC) , 60 O0 F franco 


NOM: 
Adresse: 
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QURL 8 08 1° 81: 


Le chemin des écoliers, tel est souvent le pas- 
sage par le Bureau. Pour changer d’application, il suffit 
aujourd’hui d’appeler l'accessoire “Raccourci”. Après avoir 
confirmé votre intention de quitter le programme en cours, 
une fenêtre de sélection apparaît et un simple double-clic 
vous fait passer de Basic à ScreenMaker, de MacPaint à 
Multiplan et, pourquoi pas, de MacForth à MacPoker… 


Des avantages : 


Sur un 128 Ko, re pas passer par le Finder c’est 
éviter des manipulations gourmandes en temps et 
en patience. 

Sur un 512 KO, les applications disposent de toute la 
place mémoire. 

Sur un Mac Plus, tes changements sont quasi- 
instantanés et les 768 Ko de mémoire cache sont 
disponibles. 

Compatible avec Switcher : vous pourrez 
changer l’une ou l’autre des applications gérées par 
Switcher directement par cet accessoire. 

Compatible disques durs : même si votre dis- 
que dur est partagé via AppleTalk.… 

Disponible à tout moment, “Raccourci” est toujours 
utilisable car il ne nécessite pas une installation 
préalable des applications (sait-on toujours à 
l'avance quelles applications seront nécessaires à 
un travail donné ?). 


Avec Pom’s, travaillez directement ! 
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Éditorial 





L'année 1987 sera celle du Mac ouvert ; il est en effet attendu depuis déjà longtemps. Sera-t-elle 
aussi celle de l’Apple Ics ? Personne ne saurait aujourd’hui le dire, la richesse des possibilités de ce 
matériel et l’excellente compatibilité avec le reste de la gamme Apple // étant hélas compensées par 
un prix relativement élevé. Les transformations //e en Ilcs dont on parle aujourd’hui résoudront 
certainement ce handicap. 


Au niveau du logiciel Macintosh, signalons que — depuis juin 86 — on nous promet Writer Plus pour 
la semaine prochaine... Tôt ou tard, cela devrait devenir vrai ! Autre retard : dBase Mac qui, une 
semaine avant sa sortie aux États-Unis, a brutalement été stoppé par Ashton-Tate. Un développeur 
avait en effet constaté que la gestion de la mémoire virtuelle ralentissait énormément le fonctionne- 
ment à partir d’une certaine taille de fichier. Retour donc au drawing-board, la sortie du produit 
étant repoussée au milieu de l’année, car il est actuellement reprogrammé en assembleur. 


Ceci dit, les produits nouveaux qui sortent actuellement dans les gammes Mac et Ilcs sont 
nombreux, comme vous pourrez le voir dans la rubrique Micro-informations. 


Nous savions vous avoir proposé des programmes séduisants dans le numéro 27, mais, avouons-le, 
nous n’attendions pas un tel succès. Vos courriers et appels téléphoniques se feront certainement 
aussi nombreux et enthousiastes pour les programmes de transmission proposés dans ces pages. 
Notons que, comme fréquemment, Pom’s vous offre au prix du numéro des logiciels de haute 
qualité et de haute fiabilité dont la valeur dépasse le coût d’un abonnement revue plus disquette. 
Rappelons que les disquettes d’accompagnement (60,00 F pour Apple // et 80,00 F pour Macintosh) 
comportent les sources bien sûr mais également les programmes exécutables. 


Pour vous simplifier la communication, Pom’s fait dans le ‘hard’ : nous tenons à votre disposition 
des câbles de liaison Apple/Minitel. Peut-être serviront-ils pour de prochains programmes. 


Hervé Thiriez 


Ont collaboré à ce numéro Alexandre Avrane, Jean-Luc Bazanegue, François Dreyfuss, Jean-Michel Gourévitch, 
Roland Jost, Olivier Herz, Yves Martin, Gérard Michel, Christian Piard, Jacques Rey, 
Hervé Thiriez. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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SHOW, L C, 0: 
le debugoing sous ProDOS 


Alexandre Avrane 


Comme vous le savez tous, la 
recherche des erreurs d'un 
programme est une des activités 
principales de l'informatique. 
Tâche Ô combien exaltante, bien 
entendu. 


Malheureusement, il n'existe pas 
(encore) de méthodes infaillibles 
permettant de les éliminer dès la 
naissance, c'est-à-dire la 
conception d'un logiciel. En 
revanche, une panoplie d'outils 
destinés au debugging permet de 
les déceler plus rapidement. 
Examinons-les aujourd'hui, dans 
l'optique d'un programme écrit 
en assembleur ou en Applesoft, et 
dans un environnement ProDOS. 


Les méthodes 


Trois types d'approches sont 
souvent envisagées : 


+ D'abord, la méthode de la 
grande patience pas toujours 
récompensée : c'est l'analyse 
pas-à-pas des instructions 
exécutées ; le TRACE du Basic, 
ou un logiciel spécifique (tel que 
Bugbyter livré sur certaines 
disquettes ProDOS) pour les 
routines écrites en 6502. C'est 
long, fastidieux et éprouvant. 


+ Cette première approche peut 
être complétée par des ordres 
d'arrêt afin que le programme 
rende la main et qu'il soit ainsi 
possible d'examiner la valeurs 
des variables Applesoft ou de 
certains octets de la mémoire. Il 
s'agit, respectivement, des 
instructions STOP et BRK. 


+ Enfin, une mise au point 
affinée nécessite souvent une 
analyse détaillée des appels vers 
le système d'exploitation. Les 
commandes MON et NOMON du 
DOS 3.3 permettent ainsi 
d'obtenir des informations 
pertinentes en un minimum de 
temps. 


En complément, on peut trouver 
un certain nombre d'utilitaires 
afin d'accélérer le temps passé au 
debugging ::par exemple 
D-CODE (Beagle-Bros) et 
certaines routines proposées dans 
Beneath Apple DOS (et bien sûr 
dans Pom's). 


Remarquons que le TRACE de 
l'Applesoft n'était pas disponible 
sous DOS 3.3 ; en revanche, les 
instructions MON et NOMON 
sont ignorées sous ProDOS. 
Aujourd'hui, notre objectif sera 
donc d'en créer les équivalents 
grâce aux commandes SHOW et 
NOSHOW. 


MON & NOMON 


Pour rappel, ces deux 
instructions permettent d'afficher 
à volonté, sous DOS 33 
uniquement, l'ensemble des 
commandes passées par le 
programme Basic vers le système 
d'exploitation (CATALOG, 
READ, VERIFY, etc.) par 
l'exécution de lignes telle que : 


260 PRINT CHR$(4);"OPEN FI 
CHIERI, D2" 


Trois paramètres facultatifs 
définissent le type d'affichage : C 
pour n'afficher que les 
commandes, I (input) pour les 
données lues par un READ, O 
(output) pour celles écrites par un 
WRITE. 

Deux points essentiels semblent 
dignes d'amélioration : 


+ D'abord, MON n'a d'effet que 
pour un programme écrit en 
Applesoft (ou en Integer Basic, 
pardons aux puristes). En 
particulier, une routine en 
assembleur qui appelle le File 
Manager ou RWTS ne peut être 
examinée. 


+ Ensuite, l'affichage à l'écran 
brouille très rapidement celui-ci si 
il est utilisé à d'autres fins (grille 
de saisie par exemple), ce qui 
occasionne une gêne non 
négligeable. 


Les commandes offriront done 
les particularités suivantes : 


Les commandes affichées sont 
celles qui appellent effectivement 
le noyau de ProDOS (MLIT), et 
non pas la chaîne de caractères 
qui suit le PRINT CHR$(4) d'un 
programme Basic. Par ailleurs, 
l'interception de cette chaîne par 
le Basic.System n'est pas 
documentée par Apple ; il faudrait 
donc, pour la réaliser, modifier 
directement le Basic.System hors 
ses pages globales, avec tous les 
risques liés à une fâcheuse 
dépendance vis-à-vis des 
versions actuelles de ProDOS. 


Les anciens paramètres (C, I, O) 
sont conservés. De plus, le 
paramètre P permet d'envoyer les 
informations également sur une 
imprimante connectée en slot 1. Il 
sera alors possible d'exécuter un 
programme en obtenant une trace 
papier des actions effectuées. 


Enfin, nos nouvelles commandes 
ne peuvent malheureusement pas 
s'appeler MON et NOMON pour 
assurer une compatibilité totale 
avec les programmes écrits sous 
DOS 3.3 car, erreur de 
conception du Basic.System, les 
commandes de celui-ci (dont 
MON et NOMON qui sont 
reconnues mais ignorées) ne 
peuvent être redéfinies par une 
commande externe. Il aurait été 
préférable que le Basic.System 
s'intéresse à l'existence 
d'éventuelles commandes 
externes avant de s'occuper des 
siennes, et non l'inverse. 
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Exemple d'utilisation 


A titre d'illustration, le 
programme en Applesoft: 


100 D$ = CHR$(4) 

110 PRINT D$"SHOW,C,O,P" 

120 PRINT D$"OPEN FICHIER1" 
130 PRINT D$"WRITE FICHIER1" 
140 PRINT "ABCDEF" 

150 PRINT "GHIJKL" 

160 PRINT D$"CLOSE FICHIER1" 
170 PRINT D$"NOSHOW,C,O,P" 


fournira, lors de sa première 

exécution, sur l'imprimante 

connectée : 

C5: Online S6,D1 

C4: Get_file info 
/DISK1/FICHIERL (46) 

C0: Create /DISK1/FICHIER1 

C8: Open /DISK1/FICHIERL, #01 

CB: Write #01,L$000E 

ABCDEF 

GHIJKL 

CC: Close #01 


Chaque ligne affichée comprend 

(toutes les valeurs sont fournies 

en hexadécimal): 

+ le numérique d'appel à 
ProDOS, 

+ le libellé correspondant à cet 


appel, 
+ éventuellement, le ou les 
paramètres pertinents, 


* enfin, un éventuel code-retour 
entre parenthèses si une erreur 
s'est produite. 


Cette méthode de visualisation 
des informations peut donc aussi 
servir à mieux comprendre le 
fonctionnement du Basic.System, 
ou à développer son propre 
interpréteur en assembleur. On 
pourra d'ailleurs en profiter pour 
relever une certaine redondance 
du Basic.System qui a parfois 
tendance à demander des 
informations qu'il connait déjà. 


En reprenant les étapes de 
l'exemple précédent, on note 
successivement: 


+ Un appel Online afin de 
connaître le nom du préfixe 
courant. 

+ Un Get file info pour vérifier 
qu'il s'agit bien d'un fichier 
texte. À la première exécution, 
ce fichier n'existe pas et on 
obtient le code erreur 
correspondant. En règle 
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générale, d'ailleurs, il est 
chaudement recommandé de 
toujours faire précéder toute 
manipulation de fichier par un 
Get file info. 

+ Un Create, uniquement à la 
première exécution, pour créer 
le fichier avec ses attributs 
(type, date/heure, etc). 

+ Un Open où le programme 
indique le nom du fichier, et 
reçoit en retour un numéro de 
référence. 

+ Un Write, correspondant avec 
le numéro de référence 
précédent, sur une longueur 
de $000E octets (14 octets, 
c'est-à-dire 2 enregistrements 
de 6 caractères suivis d'un 
retour-chariot). 

+ L'affichage des données 
"ABCDEF" et "GHUKL"' car 
on l'avait demandé (option O) 

+ Enfin, la fermeture du fichier. 


Bien entendu, on aurait obtenu le 
même résultat si le programme 
Basic ci-dessus avait été écrit en 
assembleur. 


Informations 
affichées 


Les paramètres affichés par la 
commande SHOW reprennent en 
partie l'ensemble des paramètres 
utilisés pour chaque appel à 
ProDOS. En particulier : 


- les noms de fichiers utilisés 
et/ou le préfixe ; 

- le numéro de référence fourni 
par ProDOS à l'ouverture ; 

- la longueur demandée des 
lectures/écritures de données ; 

- la longueur effectivement 
obtenue si elle diffère de celle 
demandée ; 

- la position courante sur le 
fichier, en nombre d'octets 
depuis le début ; 

- les indications de slot/drive ; 

- le numéro de priorité pour les 
appels de gestion des 
interruptions ; 

- le numéro de bloc lu ou écrit ; 

- le caractère de fin de ligne suivi 
de son octet de masque. 


Afin d'alléger la densité de 1a 
présentation, seules les 
informations pertinentes pour 


l'appel en cours sont fournies. 


De plus, lorsque les paramètres I 
ou O sont actifs, les octets de 
données des fichiers texte lus ou 
écrits sont envoyés à l'affichage. 
Afin d'éviter les crises d'épilepsie 
des cartes d'interface, les 
caractères de contrôle 
éventuellement rencontrés sont 
ignorés. 

Il n'est pas prévu de rappeler 
aujourd'hui le détail des types 
d'appel à ProDOS, qui peuvent 
être obtenus dans le Technical 
Reference Manual d'Apple ou de 
Beneath Apple ProDOS. (On 
pourra également consulter le 
numéro 20 de Pom's). 


En revanche, les codes-erreur 
possibles sont : 


00 pas d'erreur 

01 fonction inconnue 

04 nombre de paramètres 
incorrect pour la fonction 

25 table d'interruption pleine 

27 i/o error 

28 pas d'unité dans ce 
slot /drive 

2B volume protégé contre 
l'écriture 

2E un volume, sur lequel se 
trouve des fichiers ouverts, 
a été enlevé 

40 syntaxe incorrecte du 
préfixe 

42 pas plus de 8 fichiers 
ouvert simultanément 

43 numéro de référence fourni 
non alloué à un fichier 
ouvert 

44 le chemin d'accès du préfixe 
n'a pu être trouvé 

45 volume actuellement non 
monté 

46 fichier inconnu 

47 impossible de créer ou 
renommer vers un nom de 
fichier déjà existant 

48 plus de place sur le volume 

49 plus de place sur le 
directory du volume 

4A version de ProDOS trop 
ancienne pour lire ce 
fichier 

4B type de stockage du fichier 
inconnu 

4C lecture impossible après la 
fin du fichier 

4D impossible de se positionner 
après la fin du fichier 

4E erreur d'accès au fichier 
(fichier verouillé) 

50 impossible d'ouvrir, 
renommer ou détruire un 
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fichier ouvert 

51 directory endommagé 

52 volume non formaté pour 
ProDOS 

53 valeur hors champs d'un 
paramètre d'appel 

55 pas plus de 8 volumes connus 
simultanément par ProDOS 

56 adresse de buffer incorrect 

57 deux volumes montés ont le 
même nom 

58 carte du volume endommagée 


À l'exception du code-retour 00, 
qui indique un accomplissement 
correct, les codes erreurs sont 
affichés, à la suite des 
paramètres, entre parenthèses. 


Installation 


Les commandes SHOW et 
NOSHOVW sont gérées par une 
routine en assembleur qui utilise 
le modèle donné par les 
commandes TDUMP et INIT de 
Pom's 20. Le fichier source 
SHOW.CODES, assemblé par 
Big Mac, fournit l'objet 
SHOW.CODE. 


Ce dernier est ensuite chaîné avec 
la routine CMDLOAD par le 
programme CMDLINK pour 
fournir un fichier SHOW 
directement exécutable. 
(CMDLOAD et CMDLINK ont 
été explicités en détail dans le 
numéro 20 de Pom's). 


Pour initialiser les commandes 
SHOW et NOSHOW, il suffit de 
faire : 

-SHOW 
ou 

BRUN SHOW 


Il est également possible de 
charger les commandes par: 


BLOAD SHOW.CODE 
BRUN CMDLOAD 


Après chargement du 
programme, aucune différente 
n'est visible tant qu'une 
instruction telle que SHOW,C 
n'est pas exécutée. 


Le paramètre d'assemblage SLOT 
permet de spécifier le slot de 
l'imprimante si celle-ci n'est pas 
connectée en slot 1. Le 
programme fonctionne 


néanmoins parfaitement sur une 


configuration sans imprimante, 
pourvue que la commande 
SHOW,P ne soit jamais exécutée. 


Enfin, notons que l'utilisation de 
ces deux nouvelles commandes 
est compatible avec celle des 
autres commandes utilisant le 
principe décrit par CMDLOAD. 
En particulier, la commande 
TDUÜMP de Pom's 20 (qui 
permet de vérifier entre autre le 
contenu des fichiers texte) peut 
être utilisée conjointement. 


De même, SHOW gère les 
tentatives d'interruption et peut 
donc co-exister sans problèmes 
avec des programmes qui les 
génèrent, comme DATHEUR de 
Pom's 24 qui utilise les 
interruptions de la carte souris. 


Utilisation hors Basic 


Il est possible d'obtenir, dans un 
environnement où l'interpréteur 
système n'est plus le 
Basic.System (par exemple le 
Filer, Convert, Exerciser, etc), 
les informations affichées à 
chaque appel du MLI. Dans ce 
cas, il faut modifier le source et : 


- fixer le paramètre BASIC à 0 
(il est normalement à 1) 

- fixer le paramètre ADRESSE 
à une adresse où la routine 
pourra se loger sans interférer 
avec l'interpréteur système 
actif (par exemple $8000 pour 
CONVERT) | 

- fixer le paramètre OUT à O si 
on désire une sortie 
uniquement sur écran, à 1 


pour une sortie 
supplémentaire sur 
imprimante 


- fixer le paramètre XSYSIO à 
1 pour n'afficher que les 
appels au MLI, à O pour 
obtenir en plus les données 
lues ou écrites vers tous les 
types de fichiers 

- assembler le source ainsi 
modifié 

- ne pas chaîner le module objet 
avec CMDLOAD mais 
l'exécuter directement (BRUN 
SHOW. CODE) 


Les informations de debugging 
seront alors toujours envoyées 


(impossible de moduler leur 
apparition). 


Ainsi utilisé, SHOW permet par 
exemple d'observer les 
algorithmes des programmes 
utilitaires fournis par Apple sans 
devoir les désassembler dans le 
détail. 

Ainsi, ne cherchez plus pourquoi 
CONVERT 1.0 est si long pour 
lire un catalogue DOS 3.3 : il se 
contente seulement de lire 
consécutivement jusqu'à cinq fois 
les mêmes blocs de la piste $11 ! 


Attention, le paramètre 
ADRESSE, s'il est mal choisi, 
peut entraîner un magnifique 
plantage du système. Il est donc 
très important de le déterminer 
avec soin afin de charger 
SHOW.CODE dans une zone 
mémoire qui ne sera jamais 
affectée par l'interpréteur actif. 
Cette utilisation du programme 
SHOW est surtout destinée à un 
but pédagogique (pour mieux 
discerner le fonctionnement du 
Filer par exemple), ainsi qu'aux 
ambitieux qui écrivent leur propre 
interpréteur système. 


Fonctionnement 
interne 


Le principe de fonctionnement du 
programme repose sur 
l'interception des appels au MLI 
qui ont comme point d'entrée 
l'adresse $BF00. En modifiant le 
JMP qui se trouve à cette adresse, 
une roûtine prend la main sur 
tous les accès effectués vers 
ProDOS. 


En examinant alors la pile, 
SHOW détermine l'adresse de la 
routine appelante, ainsi que le 
code d'appel au MLI et l'adresse 
de la table des paramètres 
associée. On peut alors appeler 
directement MLI en lui 
fournissant les valeurs 
précédemment trouvées. En 
retour, il reste à gérer l'affichage 
des informations concernant cet 
accès, puis rendre la main à la 
suite de la routine appelante. 


Bien entendu, il faut également 
s'occuper de certains détails, 
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comme les interruptions (car une 
carte souris peut en générer très 
fréquemment), les vecteurs 
d'affichage (en déconnectant 
temporairement le Basic.System 
qui ne comprend plus rien si on 
lui dit ce qu'on affiche...) et 
d'autres babioles telles que la 
sauvegarde/restitution des 
registres ou la sortie en 
catastrophe si jamais la routine 
appelante se met à charger un 
nouvel interpréteur système. 


SHOW gère également les codes 
d'appel inconnus, en affichant 
alors le libellé “Unidentified” 


suivi d'un beep péremptoire. On 
pourra remarquer que 
l'EXERCISER de la disquette 
Apple ne se gêne pas pour 
envoyer quelques codes 
inconnus. 


Fichiers sur la disquette Pom's 


T.SHOW.CODE 
source en Big Mac, type 
TEXT 

SHOW 
objet exécutable après 
chaînage avec CMDLOAD 
(Pom's 20) 





SHOW ne prétend nullement être 
l'outil complet de debugging sous 
ProDOS mais pourra rendre de 
grands services pour dépanner 
certains problèmes de plantage. 
En particulier, couplé avec la 
commande TDUMP, il permet 
une réparation très rapide des 
programmes qui accèdent aux 
fichiers texte. Enfin, c'est un aide 
pour la mise au point rapide (c'est 
à dire sans faire de pas-à-pas) des 
routines en assembleur qui 
manipulent ProDOS. 





Source T.SHOW.CODE 


* pour utiliser ce programme sans Basic.System; 

* les paramètres sont alors tous considérés actifs. 
* La routine doit alors impérativement etre chargée 
* dans une zone d'adresses n'interférant pas 

* avec l'interpréteur système actif. 


* Localisation du slot de l'imprimante 


adresse de chargement 
par défaut, pas de sortie vers l'impr 
par défaut, seulement show,c 


position horizontale 
vecteur de sortie des caractères 


buffer de saisie 

commande externe Basic.System 

vecteur réel de sortie pour Basic.Sys 
rappel après extraction des paramètres 
longueur de la commande externe 
numéro de commande Basic.System 

flags de recherche par Basic.System 
type de fichier pour Basic.System 


accès au ProDOS MLI 

retour-chariot 

affiche l'accumulateur en hexadécimal 
affiche l'accumulateur en ascii 
instruction RTS immuable (on espère!) 


($2000-20FF pour CMDLOAD) 


(Assembleur Big Mac) 
x 
LST OFF 
SLOT - ni 
HARRÉRRRERRÉRRARRRRRR ARR RAR Re 
* * 
* ProDOS SHOW,I,C,O,P * DO 1-BASIC 
* * ADRESSE = $8000 
ÉÉÉLLLELISSELLLIIILILLLIIIILLLI111111111) OUT = (e] 
XSYSIO = 1 
ÉÉPPELELIS LILI LIS III SLI LI IL LS 111 111111 FIN 
* * 
* Commandes SHOW et NOSHOW pour ProD0S * CH ” $24 
* * CSW = $36 
* Copyright (c) 1986 Alexandre Avrane * PTRI . $3c 
* * PTR2 = $3E 
* Modifié: 05/07/86 * DO BASIC 
* Créé: 07/01/86 * IN_BUFF = $200 
* * EXTRNCMD = $BE06 
* Assembleur: Big Mac * BI_OUT = $BE30 
* * XTRNADDR = $BE50 
PÉPPEELIIILLILIIIIII 1111 11111111111111111: XLEN = $BE52 
XCNUM = $BE53 
* Fonction: PBITS - $BE54 
=== FILETYPE = $BEB8 
* Simule les commandes MON et NOMON du DOS 3.3, avec les FIN 
* paramètres C (commandes), I (input data) et O (output data), MLI = $B8F00 
* P (envoi des informations sur l'imprimante). CROUT = S$SFDS8E 
* Les commandes correspondent aux appels au MLI, et non PRBYTE = $FDDA 
* les instructions issues de l'Applesoft. COUT - $FDED 
RTS = $FF58 
* Syntaxe 
* ======= DO BASIC 
* SHOW  <paramètres> active les modes de debugging ORG $2100 
* NOSHOW <paramètres> désactive ELSE 
* paramètres: ORG ADRESSE 
* C affichages des appels de l'interpréteur vers ProDOS FIN 
* I affichage des octets lus d'un fichier texte 
* O affichages des octets écrits vers un fichier texte * mu 
* P envoi de l'affichage vers l'imprimante * Macros 
* Les paramètres peuvent etre précédés d'une virgule Fam 
* (pour assurer la compatibilité avec le DOS 3.3). MOVE MAC 
* Si aucun paramètre, la commande est ignorée. LDA ]1 
STA ]2 
* Ce programme doit etre linké avec CMDLOAD (Pom's 20) LDA ]1+1 
STA ]2+1 
* Configuration <<< 
À aumumememmezm— 
* Apple Il+, //e, //et, //c, /// GET MAC 
* Vidéo: 40 colonnes (avec minuscules) ou 80 colonnes LDY #]1 
* LDA (PTR1),Y 


Processeur: 6502, 65C02, R65C02 


* ProDOS + Basic.System (toutes versions) 


BASIC = o 


DISPLAY MAC 


* Ce paramètre d'assemblage doit etre mis à zéro LDA #]1 
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LOAD_REG 
PLA 
TAY 
PLA 
TAX 
PLA 
PLP 
<<< 


EXP OFF 


NM 


START = * 


Examen de la commande et des paramètres 
On arrive ici à chaque retour-chariot en mode immédiat, 
et pour chaque commande précédée de ctrl-d en mode différé. 


convention avec ProDOS 


#>FIN+$100 conventions pour CMDLOAD 


le buffer d'entrée contient la saisie 


prend un octet saisi 

on sait déjà que c'est peut-etre SHOW 
NOSHONW ? 

non 

6 caractères dans NOSHOW 

oui 

pas encore certain (jmp avec carry=0) 


SHOW? 

non, c'est pas pour moi 

4 caractères dans SHOW 

oui 

indique qu'on cherche sur SHOW... 
...et on continue 


donne 0 si SHOW, 6 si NOSHOW 


4 paramètres possibles 
on ignore les virgules... 
-..et les blancs 

si retour-chariot... 
-.-.fin de la saisie 

un des paramètres? 


je ne sais pas encore 


les flags seront nuls si activés 
---et on recherche d'autres paramètres 


peut-etre le suivant 
inconnu 


(V_OLDCMD+1) ni SHOW, ni NOSHOW... 


DO BASIC 
CLD 
LDA 
LDA  #>LONG-$100 
V_OLDCMD LDA RTS 
SEI 
LPA #<IN BUFF 
STA PTRI 
LDA #>IN_ BUFF 
STA PTR1+1 
LDY #$FF 
CLC 
CMD Li INY 
LDA  (PTR1),Y 
BCS CMD_L2 
CMP CMD,Y 
BNE CMD_L2 
CPY 4#6-1 
BEQ FOUND 
BNE CMD _LI 
CMD_L2 EOR CMD+2,Y 
BNE NO CMD 
CPY #4-1 
BEQ FOUND 
SEC 
BCS CMD_LI 
FOUND  TYA 
EOR 43 
STA PTR2+1 
FOUND_L1 INY 
LDX #4-1 
LDA (PTR1),Y 
CMP #"," 
BEQ FOUND_ LI 
CMP. 4%" 
BEQ FOUND Li 
CMP  #$8D 
BEQ CMD_OK 
FOUND_L2 CMP PARM,X 
BNE FOUND_L3 
LDA PTR2+1 
STA FLAG,X 
BPL FOUND_ Li 
FOUND_L3 DEX 
BPL FOUND_L2 
BMI NO CMD 
NO CMD SEC 
CLI 
JMP 
CMD_OK CLI 


XCNUM commande externe à Basic.System 
PBITS aucun paramètre à faire extraire 
PBITS+1 
XLEN longueur de la commande 
MOVE, CMD_BACK+1;XTRNADDR adresse de retour 
#0 si utilisation sans Basic.System... 
FLAG -..les paramètres sont actifs en 
FLAG+1 
FLAG+2 
#oUT 
FLAG+3 
BASIC 
c'est bien notre commande externe! 
on nous rappelle à la ligne suivante... 


À SSSSESSSESSSSSASSSSSSSA=MSMMMSME 


* Mise en place des interceptions 





* On arrive ici dès que ProDOS a compris qu'il n'avait pas 
* à extraire des paramètres pour notre commande 


CMD_NEXT LDA 


CIAO 


CMD_BACK LDA (CMD NEXT 


à 


w 
L] 


C: 


FERÈÈE 


>> 


aRRY 


V 
v 


> 


f 


V 
v 


>. 


a 6 R 


MLI+2 l'interception est-elle déjà là? 
#>MLI 

CMD_SET non: il faut la placer 

FLAG 

FLAG+1 

FLAG+2 aucun paramètre C,I,0 actif? 
#6*3 

CIAO ---au moins un 


MOVE,SV_MLI*l;MLIil déconnecte l'interception 


MOVE,MLI#1;SV MLI+1 stocke l'adresse réelle d'entr 


MOVE,MY MLI+l1;MLI+1 intercepte les appels vers MLI 
pas d'erreur à l'exécution de notre comm 


cette fois-ci, c'est fini. 
{adresse pour etre relogée) 





* Interception des appels 





* On arrive {cf lorsqu'une routine quelconque appelle MLI 


MY_MLI 


2 
2>> 


ERG 


RE 


>>> 


LZ +3 
SAVE REG 


$105,x 
GO_PGM+1 
PTRI 
$106,x 
co Pa#+2 
PTRI+1 


récupère l'adresse du programme appelant 
...-et sauve pour l'appeler plus tard 


GET, 1 code d'appel à MLI 


MLI_CODE 


(PTR1),Y 
MLI_PARM 
(PTR1),Y adresse des paramètres 
MLI_PARM+1 


BASIC 
MLI_CODE 
#$cA 
GO_MLI 
FILETYPE 
#$FF sur un fichier système? 

GO_MLI si oui: on va charger un nouvel interpr 
MOVE, V_OLDCMD+1;EXTRNCMD déconnecte la commande ext 


lecture demandée? 


OFF_CMD déconnecte l'interception vers MLI 
LOAD REG on restore tout l'environnement... 
MLI ...-et on rend l'ame en plongeant sur MLI. 
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GO_MLI LOAD_REG 


sdépile le JSR MLI du pgm appelant 


SV_MLI 
MLI_CODE NOP 
MLI_PARM NOP 

NOP 


$0000 on appelle MLI 


nop pour etre relogeable 


À ===> ==555s55=555s5=.2= 


* Gestion des retours d'appel 


======22S22S=S=S252=-2222.——… 


* On arrive ici dès que le MLI a fait son boulot 


STA 
>>> 


MLI_RC 
SAVE_REG 


récupère le code-retour MLI 


MOVE, CSW;SV_CSW sauve l'ancien vecteur de sortie 
CH 
SV_CH 

sinhibibe toutes les interruptions 
FLAG+3 sortie vers l'imprimante? 
PRINTER 
BASIC 


MOVE,BI_OUT;CSW ne passe plus par Basic.System 


CHECK _C 
CSW 

CH 
#SLOT+$CO 
CSN+1 


=jmp 
PRINTER 


imprimante activée (vers $C100) 
CHECK_C MOVE, MLI_PARM; PTR1 

FLAG show,c actif ? 
BACK 
10 non 
MLI_CODE 
PRINT_L4 
DISPLAY, ":" 


affiche le code 


T_CALL 
MOVE, T_CALL V+1;PTR2 
10-2 

SEEK 


cherche le code utilisé 
code inconnu! 


(PTR2),Y 
TRANS 
MLI_CODE 
SEEK 


TRANS 


(PTR2) ,Y 
TRANS2 
PTR2+1 


PTR2 
PTR2 
PTR2+1 
#0 
PTR2+1 


TRANS2 
translate le vecteur vers la 2e tabl 


#0 
(PTR2),Y 

PARAMS 
COUT 


LOOP 
affiche le libellé 
LOOP 


PARAMS 
DISPLAY," " 


À SSSSS=SSEE-SSSSSSESSSSSESSSSSSESSSSSSESS 


* Affichage des informations selon l'appel 


* Table des types de paramètres 


* octet = #0gfedcba 

* a = 1 ==> typel: pathname en +1/+2 

* b= 1 ==> type2: block number en +4/+5 
* c=1 ==> type3: unit number en +1 

* d=1 ==> type: reference en +1 


e =1 
É=1 
g 1 
£=g=1 


M M N % 


TYPE1 


TYPE1_L 


TYPE2 


TYPE3 


TYPE3_L 


TYPE4 


TYPES 


TYPE6 


type5: reference en +5 

type6: length en +4/+5 

type7: position en +2/+3/+4 

type8: caractère newline en +3, masque en +2 


TYPE2 
GT, 1 
PTR2 


(PTR1),Y 
PTR2+1 
#0 

(PTR2),Y 
TYPE2 


longueur du pathname 
préfixe nul 


affiche le pathname 


TYPE3 


© DISPLAY, "$" 


PRINT_1 affiche le numéro de bloc 


DISPLAY, "," 


TYPE4 
DISPLAY, "S" 
GT, 1 


#$B0 

COUT 
DISPLAY, "," 
DISPLAY, "D" 
#1 


affiche le slot 


TYPE3_L 


#5B0 


COUT affiche le drive 


TYPES 
DISPLAY, "," 
DISPLAY, "#" 
#5 


PRINT_3 affiche la référence à l'ouverture 


TYPE6 
DISPLAY, "#" 
#1 


PRINT_3 affiche la référence utilisée 


THE_END 


DISPLAY, "," 


TYPE? 
TYPES 
DISPLAY, "L" 
DISPLAY, "$" 


PRINT_1 affiche la longueur... 
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TYPE7 


TYPES 


THE_END 





GET, 6 

#4 
(PTR1),Y 
TYPE? 


DISPLAY, "-" 
DISPLAY, ">" 
GT, 7 
PRINT_L4 


PRINT_L4 


THE_END 
DISPLAY, "B" 
DISPLAY, "$" 
#4 

PRINT_2 


PRINT_3 
THE_END 
DISPLAY, "$" 
#3 

PRINT_3 


DISPLAY, "(" 


PRINT_3 
DISPLAY, ")" 


MLI_ RC 
RC_0 


DISPLAY, ” 
DISPLAY, "(" 


PRINT_L4 
DISPLAY, ")" 
CROUT 


GOBACK 





-...et compare avec la longueur effect 


si une différence modulo $100, on l'aff 


position (relative byte address) 


= jmp 


code-retour 0 -.. 


...sinon on l'affiche... 


...et on termine 


=== SMMMMMMENSES SES EESSSSSSSSESESES 


alors les 


* 
* C'était un "open" ? 
* 
* 


"read" et 


pour un fichier texte ? 
“write” afficheront les données 


RRS2SRMMMERSRESSSESSEEEEEEE-SSSSSSSMMMMME SES EEESEEEZ 


10 LDA 


MLI_CODE 
#$ce 
SHOW_10 
GET, 5 


BASIC 
FILETYPE 
#$504 
#XxSYSI0 


TXT_FLAG,Y 


GOBACK 





open? 
.-.non 
obtient le # de référence 


type texte ? 
...get_file info, au moins sous Basic.S 


0 <=> fichier texte 


= jmp 


* Affichages des données si show,i,o 


7777117177] 


SHOW_IO CMP 
BEQ 
CMP 
BNE 


BEQ 


SHOW_IO2 LDY 


SHOW_OK 


#$cA 
SHOW_102 
+#$cB 
GOBACK 
FLAG+2 
GOBACK 
SHOW_OK 
FLAG+1 
GOBACK 
GET, 1 


TXT_FLAG, Y 
GOBACK 
GET, 3 
10_PTR+1 


(PTR1),Y 
10_PTR 


read ? 


write? 


show,o actif ? 


show,i actif ? 
# de référence du read/write 


est-ce un fichier texte? 
non! 


obtient l'adresse du buffer d'entrée/s 


10_LOOP 


IO_LONG 


IO_PTR 


10_PRINT 


IO_INC 


GET, 6 
PTR2 


{PTR1),Y 
PTR2+1 


PTR2 

10 _LONG 
PTR2+1 
GOBACK 
PTR2+1 
PTR2 
$FFFF 
#2 

#$7F 
#50D 

10 _PRINT 
#520 
IO_INC 
#$20 
œuT 
ZO_PTR 
10 LO0P 
IO PTR+1 
10 LooP 





stocke la longueur effectivement lue 


jusqu'à la fin... 


..-on décrémente la longueur 
(adresse gérée dynamiquement) 


sauf les retour-chariots... 


...-on élimine les codes de controle 
force le bit 7 à 1 


æaintenant allons cueillir son voisin 


=Jmp 


* Retour vers le programe appelant 


PS SSMMES EEE EN 


GO_PGM 


>>> 
JMP 


LA 


MOVE,SW_CS#;CSW restore la sortie vidéo Basic.S 


Sv_cŒ 
ca 


GO_PGM+1 
#4 
GO _PGM+1 
GO _PGM+2 
#0 
GO_PGM+2 


LOAD_REG 
$0000 


Ÿ =====22ma2========= 


* Routine d'affichage 


À ===MHRms========= 


PRINT_1 
PRINT_2 


PRINT_3 


LDY 
LDA 
JSR 
DEY 
LDA 


#5 
(PTR1),Y 
PRINT_L4 


(PTR1),Y 


PRINT_L4 JMP PRBYTE 


À === MMS 


* Zones de données 


À ===2222=s==-==== 


TXT_FLAG 


SV_CSW 
MLI_RC 
TEMP 
Sv_CH 


CMD 


*-1 


calcule l'adresse de suite du prog 


restore les registres... 
.-.-et c'est fini! 


marque la fin de la zone relogeable 


indicateur fichiers texte 
ancien vecteur de sortie 
code-retour MLI 

compteur temporaire 
position horizontale 


par défaut désactivés 


table des types d'appel 
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HEX CO C81 ASC "Write_bl ock" 
DFB CCO-* DFB #00000110 
HEX C1 CB2 ASC “"Get_time ” 
DFB CC1-* DFB +#00000000 
HEX C2 €cco ASC "Create" 
DFB CC2-* DFB #00000001 
HEX C3 cc1 ASC "Destroy" 
DFB CC3-* DFB #00000001 
HEX C4 CC2 ASC ‘"Rename” 
DFB CC4-* DFB #00000001 
HEX C5 cc3 ASC "Set_file info" 
DFB CC5-* DFB $#00000001 
HEX C6 cc4 ASC "Get file info" 
DFB CC6-* DFB #00000001 
HEX C7 ccs5 ASC “Online” 
DFB CC7-* DFB #00000100 
HEX C8 ccé ASC "Set_prefix” 
DFB CC8-* DFB #00000001 
HEX C9 cc7 ASC "Get_prefix" 
DFB CC9-* DFB #00000001 
HEX CA cc8 ASC "Open" 
DFB CCA-* DFB #00001001 
HEX CB cc9 ASC "Newline" 
DFB CCB-* DFB #01110000 
HEX CC CCA ASC "Read" 
DFB CCC-* DFB #00110000 
HEX CD CcB ASC "Write" 
DFB CCD-* DFB 00110000 
HEX CE ccc ASC "Close" 
DFB CCE-* DFB #00010000 
HEX CF CCD ASC ‘"Flush" 
DFB CCF-* DFB #00010000 
HEX DO CCE ASC "Set_ma Cr 14 
DFB CDO-* DFB #01010000 
HEX Di ccFr ASC "Get_ma = dd 
DFB CD1-* DFB #01010000 
HEX D2 CDO ASC "Set_eof" 
DFB CD2-* DFB #01010000 
HEX D3 CD1 ASC "Get_eof æ 
DFB CD3-* DFB #01010000 
HEX 00 code inconnu: doit etre le dernier cDp2 ASC "Set_buf”" 
DFB CO0-* (doit etre < $FF) DFB #00010000 
CD3 ASC "Get_buf” 
c40 ASC ‘"Alloc_ interrupt" DFB #00010000 
DFB #00010000 coo ASC "Unidentified" 
Ca41 ASC “Dealloc_interrupt" DFB $87 beep! 
DFB #$00010000 DFB #600000000 
Cé65 ASC ‘"Quit" 
DFB #00000000 FIN - * 
Cc80 ASC "Read_bl ock" LONG = FIN-START+$100 
DFB #00000110 LST ON 
: 2 2158- 58 6C 06 21 58 A9 00 8D 
Récaoitulation SHOW 2090- 08 BE 85 43 C8 4C 2C FE 
P 2098- 8D FB 20 A5 74 18 69 04 2160- 53 BE 8D 54 BE 8D 55 BE 
ns ; sn 20A0- 8D FC 20 86 3D CE FC 20 2168- 8C 52 BE AD BA 21 8D 50 
ms À éd _. se IEPae . 20A8- FO 47 AD FC 20 8D FD 20 2170- BE AD BB 21 8D 51 BE 18 
Rés set dd 20B0- AD FD 20 48 4A 4A 4A AA 2178- 60 AD 02 BF C9 BF BO 1D 
se hirasese 20B8- 68 29 07 A8 B9 F3 20 3D 2180- AD 92 24 6D 93 24 6D 94 
û / 20C0- 58 BF DO El A5 3D DO 09 2188- 24 C9 12 DO 29 78 AD 20 
2000- AD 00 BF C9 4C FO 05 A9 20C8- B9 F3 20 1D 58 BF 9D 58 2190- 22 8D 01 BF AD 21 22 8D 
2008- 87 4C ED FD AD 4D BE F0 20D0- BF AD FC 20 38 CE FD 20 2198- 02 BF 58 18 60 AD O1 BF 
2010- 05 A9 15 4C 09 BE AD 04 20D8- ED FD 20 CD FB 20 DO DO 21A0- 8D 20 22 AD 02 BF 8D 21 
2018- 21 69 00 20 98 20 90 05 20E0- A5 3D DO 07 18 AE FD 20 21A8- 22 78 AD BD 21 8D 01 BF 
2020- A9 0E 4C 09 BE CD 02 21 20E8- E8 8A 60 A9 00 85 3D FO 21B0- AD BE 21 8D 02 BF 18 58 
2028- 90 F6 AE 08 BE 8D 08 BE 20F0- B9 38 60 80 40 20 10 08 21B8- 60 AD 79 21 4C BF 21 08 
2030- 8E 07 21 AE 07 BE 8E 06 20F8- 04 02 01 00 00 00 AD 99 21C0- 48 8A 48 98 48 BA 78 BD 
2038- 21 AO 00 8C 07 BE 48 E9 2100- D8 A9 26 A9 04 AD 58 FF 21C8- 05 01 8D 6B 24 85 3C BD 
2040- 21 85 3C 68 38 E9 04 85 2108- 78 A9 00 85 3C A9 02 85 21D0- 06 01 8D 6C 24 85 3D AO 
2048- 74 A9 21 85 49 84 48 AO 2110- 3D A0 FF 18 C8 B1 3C BO 21D8- 01 Bl 3C 8D 22 22 C8 B1 
2050- 00 B1 48 FO 27 20 8E F8 2118- 0B D9 88 24 DO 06 CO 05 21E0- 3C 8D 23 22 C8 B1 3C 8D 
2058- A4 2F CO 02 DO OF B1 48 2120- FO 0E DO FO 59 8A 24 DO 21E8- 24 22 58 AD 22 22 49 CA 
2060- c9 21 90 09 CD 02 21 BO 2128- 2E CO 03 FO 03 38 BO F4 21F0- DO 1F AD B8 BE C9 FF DO 
2068- 04 65 3C 91 48 A5 48 38 2130- 98 49 03 85 3F C8 A2 03 21F8- 18 AD 06 21 8D 06 BE AD 
2070- 65 2F 85 48 A5 49 69 00 2138- Bl 3C C9 AC FO F7 C9 AO 2200- 07 21 8D 07 BE 20 8D 21 
2078- 85 49 DO D3 AO 00 A9 21 2140- FO F3 C9 8D FO 16 DD &E 2208- 68 A8 68 AA 68 28 4C 00 
2080- 84 3C 85 3D 18 6D 04 21 2148- 24 DO 07 A5 3F 9D 92 24 2210- BF 68 A8 68 AA 68 28 8D 
2088- 84 42 88 84 3E 85 3F AD 2150- 10 E3 CA 10 F1 30 00 38 2218- 86 24 68 68 AD 86 24 20 
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2370- AO 07 B1 3C 20 77.24 68 24C0- CF CE DO D5 D1 DB D2 El 


2378- 20 77 24 68 4A 90 2F A9 24C8- D3 E7 00 ED C1 EC EC EF 
2380- C2 20 ED FD A9 A4 20 ED 24D0- E3 DF E9 EE F4 E5 F2 F2 
2388- FD A0 04 20 6F 24 88 20 24D8- F5 F0 F4 10 C4 ES El EC 
2390- 75 24 18 90 19 68 A9 A4 24E0- EC EF E3 DF E9 EE F4 E5 
2398- 20 ED FD AO 03 20 75 24 24E8- F2 F2 F5 FO F4 10 D1 F5 
23A0- A9 A8 20 ED FD 88 20 75 24F0- E9 F4 00 D2 ES El E4 DF 
23A8- 24 A9 A9 20 ED FD AD 85 24F8- E2 EC EF E3 EB 06 D7 F2 
23B0- 24 48 F0 14 A9 A0 20 ED 2500- E9 F4 E5 DF E2 EC EF E3 
23B8- FD A9 A8 20 ED FD 68 48 2508- EB 06 C7 E5 F4 DF F4 E9 
23C0- 20 77 24 A9 A9 20 ED FD 2510- ED E5 00 C3 F2 ES El F4 
23C8- 20 8E FD 68 DO 75 AD 22 2518- E5 01 C4 ES5 F3 F4 F2 EF 
23D0- 22 CS C8 DO 10 AO 05 B1 2520- F9 01 D2 E5 EE El ED E5 
23D8- 3C A8 AD B8 BE 49 04 99 2528- 01 D3 E5 F4 DF E6 E9 EC 
23E0- 7A 24 18 90.5E C9 CA FO 2530- E5 DF E9 EE E6 EF 01 C7 
23E8- 0B C9 CB DO 56 AC 94 24 2538- E5 F4 DF E6 E9 EC ES DF 
23F0- DO 51 FO 05 AC 93 24 DO 2540- E9 EE E6 EF 01 CF EE EC 
23F8- 4A A0 01 B1 3C A8 B9 7A 2548- E9 EE E5 04 D3 ES5 F4 DA 
2400- 24 DO 40 A0 03 B1 3C 8D 2550- FO F2 E5 E6 E9 F8 01 C7 
2408- 29 24 88 B1l 3C 8D 28 24 2558- E5 F4 DF FO F2 ES E6 E9 
2410- AO 06 B1 3C 85 3E C8 B1 2560- F8 01 CF FO E5 EE 09 CE 
2418- 3C 85 3F A5 3E DO 06 A5 2568- E5 F7 EC E9 EE E5 70 D2 
2420- 3F FO 20 C6 3F C6 3E AD 2570- E5 El E4 30 D7 F2 E9 F4 
2428- FF FF 29 7F C9 OD FO O4 2578- E5 30 C3 EC EF F3 ES5 10 
2430- C9 20 90 05 09 80 20 ED 2580- C6 EC F5 F3 E8 10 D3 E5 
2438- FD EE 28 24 DO DD EE 29 2588- F4 DF ED El F2 EB 50 C7 
2440- 24 DO D8 AD 83 24 85 36 2590- E5 F4 DF ED El F2 EB 50 
2448- AD 84 24 85 37 AD 87 24 2598- D3 ES F4 DF ES EF E6 50 
2450- 85 24 58 18 AD 6B 24 69 25A0- C7 E5 F4 DF E5 EF E6 50 
2458- 04 8D 6B 24 AD 6C 24 69 25A8- D3 E5 F4 DF E2 F5 E6 10 
2460- 00 8D 6C 24 68 A8 68 AA 25B0- C7 ES5 F4 DF E2 F5 E6 10 
2468- 68 28 4C 00 00 AO 05 B1 25B8- D5 EE E9 E4 ES EE F4 E9 
2470- 3C 20 77 24 88 B1 3C 4C 25C0- E6 E9 ES E4 87 00 DO 39 
2478- DA FD 00 FD 00 A9 AD 8D 25C8- 8D 10 CO FO 34 20 8A 9D 
2480- BF 9D A9 00 00 00 00 00 25D0- 20 6C 9C BO 25 20 62 9F 
2488- CE CF D3 C8 CF D7 C3 C9 25D8- 90 04 CA BD 00 02 09 80 
2490- CF DO 06 06 06 06 40 35 25E0- 9D 00 02 8A DO F4 20 00 
2498- 41 43 65 53 80 56 81 5F 25E8- 9A 20 D5 9A 2C 53 BE 10 
24A0- B2 69 CO 70 C1 75 C2 7B 25F0- DC 60 20 8A 9D 20 48 9C 
24A8- C3 80 C4 8C C5 98 C6 9D 25F8- 90 F7 20 45 B2 C9 05 DO 


24B0- C7 A6 C8 AF C9 B2 CA B8 
24B8- CB BB CC BF CD C3 CE C7 














Éditeur Plein Ecran 


= D = Apple //e, {lc 
Le Pacha Æ DOS, ProDOS 
40, 80 colonnes 


Listez vos programmes Basic en avant et en arrière. 

Modifiez, insérez, effacez des caractères en plein écran sans relire les lignes. 
Recherchez toute chaîne de caractères. 

Choisissez vous-même les codes de contrôle d'EPE. 

Modifiez EPE : le fichier source est sur la disquette. 


200,00 F TTC franco (bon de commande page 74). 
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Depuis la parution du numéro 27 
de Pom's, le câble de liaison 
Apple/Minitel fait partie de votre 
équipement. Vous ne l'avez pas 
trouvé chez les revendeurs ? 
Vous ne l'avez pas réalisé 
vous-même ? Pom's vous le 
propose aujourd'hui par 
correspondance. 


Cette liaison trouve ici une 
nouvelle application, Ja 
transmission (émission et 
réception) de fichiers par 
téléphone via Minitel entre Apple, 
même si votre correspondant ne 
dispose ‘que’ d'un Macintosh. 


Ce programme vous permettra 
d'échanger plus facilement et 
rapidement des fichiers et 
programmes, et par exemple de 
travailler à domicile puis de 
télécharger le Macintosh de votre 
bureau 

Cette présentation ne concerne 
que la version Apple //, la version 
Macintosh se trouvant aux pages 
41 à 53. 


Tous fichiers, 
Toutes tailles, 
Tous supports. 


Bien que plus délicate à mettre en 
œuvre, la transmission de fichiers 
a été préférée à la transmission de 
disquettes complètes pour une 
question de rapidité et pour ne 
pas être tributaire d'un type 
particulier de support. 


Ce programme, conçu sous 
ProDOS, profite de la souplesse 
de ce système d'exploitation : 
tous les types de fichiers sont 
accessibles en suivant une unique 
procédure ce qui simplifie la 
programmation. 


Côté utilisateur, cela signifie que 
tous les fichiers sont transférables 
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Téléchargement via MINITEL 


Christian Piard 


par téléphone : fichiers Basic, 
TEXT, binaires, variables, 
AppleWorks tant texte que base 
de données ou tableur. Il peut 
également s'agir de tout type 
utilisateur (de $F1 à $F8) et de 
fichiers système. ProDOS, 
lui-même un fichier, est compris 
dans cette liste non limitative. 


Deux exceptions toutefois : 
* le type BAD est autorisé mais, 


regroupant par définition des- 


blocs illisibles, l'issue d'une 
tentative de transmission sera 
l'échec. 

* Le type DIR (directory) est 
interdit car créer des dossiers et 
sous-dossiers sur le disque du 
récepteur ne présenterait que 
des inconvénients. 


Autre avantage de ProDOS, 
l'indépendance vis-à-vis du 
périphérique le fichier à 
transmettre sera indifféremment 
sur une disquette 5,25 pouces, 
une 3,5', un disque dur et 
pourquoi pas le disque virtuel 
[RAM ? 


La taille n'est limitée que par la 
durée (et le coût) de la 
communication : le fichier est 
chargé par fractions en mémoire. 
Il faut compter transmettre les 
données à raison de 4 kilo-octets 
par minute. Le programme Basic 
le plus volumineux ne demandera 
guère plus de 5 minutes. 


Si le fichier à transmettre n'est 
pas au format ProDOS, il vous 
suffira de le convertir à l'aide de 
l'utilitaire CONVERT" ou, pour 
les possesseurs de //c, à l'aide 
d'‘Utilitaires Système”. 


Le protocole 


L'ordinateur émetteur transmet un 
bloc de données transportant 512 
octets codés, un numéro d'ordre, 
un octet de contrôle de ce 


numéro, une somme de contrôle. 
L'ordinateur récepteur contrôle la 
validité du numéro d'ordre, le 
numéro lui-même, la somme de 
contrôle. Si tout va bien, il 
enregistre les données et envoie 
un acquièscement à l'émetteur qui 
va poursuivre. Dans le cas 
contraire, il demandera la 
réémission des données ou, en 
cas d'incohérence dans la 
succession des blocs, ïl 
demandera l'annulation de la 
transmission. D'autres contrôles 
sont effectués pour assurer une 
excellente fiabilité à l'ensemble : 
trop de temps entre deux 
caractères ? trop de temps entre 
deux blocs ? 


Le premier bloc de données 
transmis comporte le type 
d'ordinateur émetteur, le nom du 
fichier, sa dimension, son type et 
les paramètres auxiliaires. Le 
récepteur saisit ainsi les éléments 
nécessaires à la création d'un 
fichier identique et vérifiera que le 
support dispose d'un nombre 
suffisant de blocs libres. 


Le codage 


Le modem du Minitel travaillant 
sur 7 bits et la gestion d'écran se 
réservant certains codes ASCII, il 
a été nécessaire de coder les 
données. La méthode retenue ici 
consiste à forcer à 1 le bit 6 de 
chaque octet afin de n'envoyer 


.que des octets supérieurs à 63, 


les codes de contrôle du Minitel 
se trouvant au-dessous de cette 
valeur. 


Il faut donc 4 octets composés de 
6 bits utiles seulement pour 
représenter 3 octets. 683 octets 
seront envoyés par Minitel pour 
véhiculer les 512 octets de chaque 
blocs ProDOS. Ce type de 
codage, qui ne prend qu'une 
fraction de seconde, est plus 
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adapté à la transmission 
téléphonique (gain de temps) que 
la simple scission en deux octets, 
méthode utilisée dans les 
transmissions locales. 


Le schéma page 31 montre le 
principe de codage. 


Mode d'emploi 


Si vous n'avez pas la disquette 
Pom's, deux solutions : saisir le 
source avec l'assembleur 
ProCODE, assembler, ou bien 
saisir l'objet en mode moniteur, 
et le sauvegarder sur une 
disquette ProDOS. 

Si vous avez la disquette, 
transférer le fichier ‘Minitel’ sur 
une disquette ProDOS à l'aide de 
‘Convert’ ou ‘Utilitaires 
Système’. 


Votre disquette ProDOS devra 
comporter les fichiers : ProDOS, 
Minitel et Basic.System. Ce 
dernier est indispensable pour 
que le programme puisse afficher 
le catalogue d'une disquette. 
Il suffit alors de faire : 

— INTERPOMS 
Pour un démarrage direct sur ce 
programme, il faut le renommer 
STARTUP. 


Une transmission de fichier peut 
se présenter ainsi : 


+ Communication téléphonique 
entre les intéressés ; 

+ Mise sous tension des Minitels 
(sans les connecter) ; 

+ Lancement des programmes. 

metteur et récepteur devront 
demander l'émission et la 
réception dans la même 
minute ; 

+ Les ordinateurs connectent 
eux-mêmes les Minitels. 
Les programmes déconnectant 
sans préavis le Minitel, il est 
préférable de ne pas raccrocher 
le combiné pendant la 
transmission. Différents 
messages vous informent du 
bon déroulement de la 
procédure. 


Le programme 


Le menu vous propose : 
+ l'envoi d'un fichier, indiquer 


alors le nom du fichier. Le 
préfixe par défaut sera 
automatiquement ajouté sauf si 
le “chemin d'accès” est 
complet, c'est-à-dire commen- 
çant par un “/”. 

° la réception d'un fichier, 
réception qui se fera en suivant 
le “chemin” indiqué par le 
préfixe, 

+ OnLine qui affiche tous les 
volumes en ligne, 


+ la modification du préfixe 
courant, préfixe qui peut viser 
un dossier c'est-à-dire être du 
type /DISK/CLIENTS/DEVIS, 

+ le catalogue. 

L'ordinateur récepteur constituera 

le ficher sur le disque sous le 

nom d'origine si l'émetteur est un 

Apple //, en suivant le chemin du 

préfixe, par exemple : 


L'émetteur envoie 
/FIC/DOS1/CALCUL 

Le préfixe chez le récepteur est 
/DISQUE.DUR/ 

Le fichier créé sera accessible par 
/DISQUE.DUR/CALCUL 


Au cas où un fichier CALCUL 
existerait déjà sur le volume 
récepteur, le programme essaiera 
de le créer en incrémentant le 
dernier caractère : CALCUM. S'il 
existe égalament, il le nommera 
CALCUN etc. Après CALCUZ, il 
tentera CALCUO, CALCU1... Au 
cas, peu probable, où vous 
transfèreriez 36 fois le même 
fichier, le programme ne pourra 
pas le créer. 


Si l'émetteur est un Macintosh, 
en raison des nombreux 

aractères exotiques (# À V { à 
Î ” 6 Ÿ) autorisés dans les noms 
de fichiers, le programme 
donnera le nom FICHIER.MAC.A, 
puis FICHIER.MAC.B... 


La routine de saisie des noms de 
fichiers et de préfixe en contrôle 
la syntaxe : minuscules converties 
en majuscules, pas de chiffre ni 
de point en premier caractère ou 
après un ‘/”, succession de deux 
“/” interdite etc. 


Le Minitel 


Côté émetteur, il est 


indispensable que le Minitel soit 
“retournable” (ils le sont 
pratiquement tous aujourd'hui). 
Côté récepteur, c'est sans 
importance. Le Minitel échange 
ses données sur le réseau 
téléphonique de la manière 
suivante : il émet à 75 bauds et 
reçoit à 1200. Pour que la 
transmission soit rapide, il 
convient que le Minitel émetteur 
soit capable se “retourner”, 
c'est-à-dire émettre à 1200 bauds. 
Le récepteur émettra ses 
acquièscements à 75 bauds. 


La liaison série 


Vous avez un Apple //e ou IIGs 
doté d'un carte Apple 
SuperSérie : installez la carte en 
port 2, et configurez la ainsi : 


ÉTUDTO0 ÉOTUQUE 


modem 
configuration 
de la carte 
terminal SSC Apple 


Vous avez un Apple //c, le 
programme se charge de la 
configuration du port série 


intégré. 


Dans tous les cas, il vous faut un 
câble de liaison qui fera interface 
entre l'ordinateur et le Minitel. Le 
schéma est présenté ci-contre. Si 
vous doutez de vos capacités 
d'électroniciens, ce câble est 
disponible à la revue, par 
correspondance. N'omettez pas 
de débrancher les appareils avant 
d'effectuer le raccordement. 


Correspondant Mac 


Si votre correspondant possède 
un Macintosh, vous pourrez lui 
envoyer n'importe quel type de 
fichier, mais lui ne pourra vous 
transmettre que des fichiers de 
type TEXT (MacWrite, 
Multiplan, Excel... en format 
TEXT). Certains caractères issus 
du Mac sont recodées à la 
réception pour être plus 
présentables sur l'Apple // 
(caractères °—..,.-+"7"7«» 
Æ æ Œ œ ê Ô Îi par exemple). 
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Source INTERPOMS.1 re 
Assembleur ProCODE Carte SSC 


20 


PUT INTERPOMS.2 
PUT INTERPOMS.3 


AH Sz8q 


Source INTERPOMS.2 


SNS à À Cüblage Minitel/Apple // } 


* INTERPOMS 
* © Pom's & CP 








LST OFF 
DSK INTERPOMS 
ORG $2000 
SOH = 1 
EOT - 
ACK = 6 
NACK = 21 
CAN = 25 
COMPTNC = $18 
COMPTC - $1A 
FILEBUF = $1000 HOME - $FC58 
BUFNC = $1400 TEXT = $FB33 
BUFC = $1700 BASIC - $3D0 
DEVCNT = $BF31 CLREOP = $FC42 
MLI - $BF00 LINPTR = $ED24 
CREATE = $co LASTDEV = $BF30 
OPEN - $c8 
READ = $CA DEB00 LDX #$FF ; initialise la pile (utile 
WRITE = $CB TXS ; pour repartir après RESET) 
CLOSE - $cc LDA $BFOO ; Est-on sous ProDOS ? 
GETFINFO = $c4 CMP #$4C 
ONLINE - $cs5 BEQ DEVO ; oui, tvb 
STPREFIX = $cé6 LDA #$7EF 
GTPREFIX = $c7 JSR ERREUR 
GETTIME = $82 UMP BASIC ; Non, fin. 
GETEOF = $D1 
SETEOF = $D0 DEVO LDA $FBB3 ;: Est-on sur un //c ? 
KBD = $co00 CMP #6 
STROBE - $co10 BNE DEVOE 
STATUS = $6 LDA $FBCO 
DATA ad $8 BNE DEVOEO 
HP - $co30 JSR DEUXC ; oui, on règle l'interface 
COUT $FDED 
GBASL = $26 LDA #2 
GBASCALC = $F847 JSR S$FE95 
VTAB = $FC22 LDA #7 
cv = $25 JSR COUT 
CROUT - $DAFB JSR S$FE93 
WNDTOP = $22 UMP DEVOE 
WNDBTM - $23 
CH _- $24 DEVOEO LDA #7 
STROUT = SDB3A 
Récapitulation 2020- 34 A9 02 20 95 FE A9 07 2090- 35 03 22 08 26 72 2F 80 
- - 0 
INTÉRPOMS RE D > dede où peter MO 
2038- 8D F2 03 A9 32 8D F3 03 20A8- 20 71 2D A9 01 20 30 21 
Après avoir saisi ce code sous 2040- 49 A5 8D F4 03 AD 30 BF 20B0- A9 16 20 30 21 A2 00 BD 
moniteur, vous le sauvegarderez 2048- 8D 8B 20 20 00 BF C5 8A 20B8- CE 21 F0 06 20 ED FD E8 
par : 2050- 20 BO 4A AD 6E 35 29 OF 20C0- DO F5 20 EA 2F A9 03 85 
BSAVE INTERPOMS, A$2000, L$1566 2058- 8D 6E 35 A8 B9 6E 35 C8 20C8- 22 A9 16 85 23 AO OA B9 
sur une disquette ProDOS. 2060- 99 6E 35 88 88 C0 00 DO 20D0- F8 21 99 9D 04 88 10 F7 
2068- F3 A9 AF 8D 6F 35 EE 6E 20D8- 20 FD 25 A9 04 85 25 20 
2000- A2 FF SA AD 00 BF C9 4C 2070- 35 20 00 BF C6 8E 20 A9 20E0- 22 FC 20 A7 31 AO 00 B9 
2008- F0 08 A9 7F 20 D2 31 4C 2078- CO 85 07 85 09 A9 A8 85 20E8- 43 21 FO 07 20 ED FD C8 
2010- D0 03 AD B3 FB C9 06 DO 2080- 08 A9 A9 85 06 4C 9D 20 20F0- 4C E7 20 A9 01 8D B7 2C 
2018- 1D AD CO FB DO 13 20 C4 2088- 00 00 02 00 6E 35 01 6E 20F8- A9 13 20 47 F8 A9 16 65 
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18 


DEVOE 


DEVI1 


OLDVEC 


PARLDO 
LD 


PARLDI1 


ADRCHOIX 








$C200 
#<RESET 
$3F2 
$>RESET 
$3F3 
#$5A5 
$3F4 


LASTDEV 

LD 

MLI 

ONLINE 
PARLDO 
MENU 
PATHNAME 
##00001111 
PATHNAME 


PATHNAME, Y 


PATHNAME, Y 


#0 

DEV1 

Lt 44 
PATHNAME +1 
PATHNAME 


MLI 
STPREFIX 
PARLD1 


#$co 
STATUS+1 
DATA+1 
4528 
DATA 
#$A9 
STATUS 


MENU 


2 


2 
1 
PATHNAME 
1 
PATHNAME 


ENVFICH 
RECFICH 
MODPREF 
ONL 
CATAL 
QUITTER 





; Si RESET, on recommence 


D 


; Récupère dernier lecteur 
; utilisé pour mettre son 
préfixe en préfixe par 
défaut 


Lo 


D 


+ récupère le nom 


; met en préfixe par 
; défaut le nom trouvé 


; interface en slot 2 


; On commence 


; Adresse des différentes 
; options 


MENU 


MENUO 


MENU1 


CHOIX 


CHOIXO 


CHOIX1 


CHOIX2 


CHOIX3 


CHOIX4 


CHOIXS5 


#21 ; 
‘ 


. COUT 


TEXT 

HOME 
CLOSEFIL î 
#1 a 
LIGNE 

#22 

LIGNE 

#0 

MESTITRE, X 
MENU1 

COUT 


MENUO 
LITPREF ; 
#3 î 
WNDTOP 

#22 

WNDETM 

#10 

POMS, Y 
$49D,Y 


P 


2 
h 
” 


RECOIT 

#0 
MESMENU, Y 
CHOIX1 
COUT 


D 


» 


CHOIXO 
#1 

LONG 

#19 
GBASCALC 
#22 
GBASL 
GBASL 
CHOIX2 
GBASL+1 
INPUT 

#5 
BUFFIN 
MESCHOIX, Y ; 
CHOIX4 : 


» 


DO 


% 


CHOIX3 
BIP ; 
CHOIX1 


#<ADRCHOIX ; 
CHOIXIND+1 


6 
CHOIXIND ; 
CHOIXIND+1 ; 


désactive l'éventuelle 
carte 80 colonnes 


On ferme (cas du RESET) 
Prépare écran 


lit et affiche préfixe 
limite écran 


/ au cas où.., 


affiche les menus 


; attend i seul carac 


en ligne 19 


colonne 22 


est-ce un carac autorisé 
oui 


non 


initialise saut indirect 


Y = choix - 1 


on incrémente le saut indirect 


en fn) du choix 
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INC CHOIXIND+1 JMP  VADEB 
DEY SA1 LDY TPS 
BNE CHOIXS BNE SUITESAI ; longueur nom > 0 
JSR BIP ; sinon pas d'accord 
CHOIXIND JMP  (ADRCHOIX) ; saut mis à jour par le choix BCS SAISIN1 
LIGNE JSR GBASCALC SUITESAI LDA BUFFIN,Y + le dernier car est un / ? 
LDY #39 CM #"/" 
LDA #"" BNE SUITEO 
LIGNE1 STA (GBASL),Y DEY 
DEY 
BPL LIGNE SUITEO STY PATHNAME ; stocke nom pour MLI 
RTS STY LNGPATHN ; et garde la longueur 
SUITSAIL1 LDA BUFFIN,Y 
INY 
MESCHOIX ASC "ERMOCQO" STA PATHANAME, Y 
DEY 
MESMENU DFB $8D, $8D DEY 
ASC " <E>nvoyer un fichier" BPL SUITSAI1 
. DFB $8D, $8D 
ASC " <R>ecevoir un fichier" JSR OUVREFIC ; ouvre fichier demandé 
DFB $8D,$8D BCC SUITOUV 
ASC " <Modifier le préfixe" JMP CLOTFIC 
DFB $8D,$8D 
ASC " <O>nline SUITOUV JSR GFI ; get file info 
dfb $8D,$8D BCC SUITOUVO 
ASC " <C>atalogue" JMP CLOTFIC 
DFB $8D,$8D 
ASC " <Q>uitter" SUITOUVO LDA FILETYG 
DFB S$8D, $8D, $8D CMP #$F ; C'est un directory ? 
ASC " Votre choix :" BNE SUITO1 ; non, tvb 
DFB O0 LDA #$7E ; oui, c'est interdit 
MESTITRE ASC "Téléchargement/Télér" JSR ERREUR 
ASC "éception x JSR CLOSEFIL 
DFB $8D,0 USR GETRET 
POMS INV " INTERPOMS " JMP  ENVFICH 
Re SUITO1 LDA REFNUM 
* ENVOI DE FICHIER STA  REFNUMG 
ES JSR GETLONG ; récupère longueur du fichier 
BCC SUITOUVI 
ENVFICH LDA #3 JUMP CLOTFIC 
STA WNDTOP 
JSR HOME SUITOUVI LDA #11 
JSR RECOIT ; s'il reste un carac STA CV 
JSR VTAB 
JSR LITPREF LDA #0 
SAISINI LDA #7 ; saisie du nom de fichier STA CH 
STA CV LDX BLOCKUS ; affiche blocs à transférer 
JSR VTAB LDA BLOCKUS+1 
LDA #0 JSR LINPTR 
STA CH LDY #>MESBLOC 
LDY #>NOMFIC LDA #<MESBLOC 
LDA #<NOMFIC JSR STROUT ; ok pour transfert ? 
JSR STROUT JSR GETRET 
LDA #38 BCC BOUCLEO ; oui 
STA LONG JSR CLOSEFIL ; non 
LDA #9 JUMP  ENVFICH 
JSR GBASCALC 
JSR INPUT BOUCLEO JSR RETOURN ; retourne le Minitel émetteur 
BCC SAl JSR CONNECT ; et le connecte 
2250- 99 6E 35 88 88 10 F5 20 22C0- 58 FC 20 FB DA E6 22 20 2330- A7 31 BO 1A AD 00 CO 2C 
2258- 1F 2D 90 03 4C E6 23 20 22C8- 16 35 A9 06 20 72 24 A9 2338- 10 CO C9 9B FO OD 20 88 
2260- 54 2F 90 03 4C E6 23 AD 22D0- 00 8D FA 25 8D FB 25 20 2340- 31 CE F7 25 AD F7 25 F0 
2268- 64 2F C9 OF DO O0E A9 7E 22D8- A7 31 BO OD AD 00 CO 2C 2348- 10 10 E4 4C FA 23 C9 19 
2270-20 /D2, 31:20: 71 2D:20'1E 22E0- 10 CO C9 9B DO F1 4C FA 2350- DO 03 4C 53 24 C9 15 DO 
2278- 32 4C 03 22 AD 30 2D 8D 22E8- 23 C9 19 FO 06 C9 15 FO 2358- 29 EE FC 25 AD FC 25 C9 
2280- 1B 2D 20 0E 2D 90 03 4C 22F0- 05 DO E4 4C 53 24 4C 87 2360- 0B DO 03 4C F2 23 20 16 
2288- E6 23 A9 0B 85 25 20 22 22F8- 24 20 4B 2D 90 12 C9 4C 2368- 35 AE FC 25 A9 00 20 24 
2290- FC A9 00 85 24 AE 68 2F 2300- DO 03 4C 91 23 20 D2 31 2370- ED A9 02 20 72 24 AE FA 
2298- AD 69 2F 20 24 ED AO 24 2308- A9 19 20 9A 31 4C E6 23 2378- 25 AD FB 25 20 24 ED 4C 
22A0- A9 D5 20 3A DB 20 1E 32 2310- 20 2B 30 20 16 35 A9 01 2380- 27 23 C9 06 DO A9 EE FA 
22A8- 90 06 20 71 2D 4C 03 22 2318- 8D FC 25 20 72 24 AE FA 2388- 25 DO 03 EE FB 25 4C F9 
22B0- 20 F8 34 20 E9 34 A9 OA 2320- 25 AD FB 25 20 24 ED 20 2390- 22 A9 01 8D FC 25 20 16 
22B8- 20 30 21 A9 OB 85 22 20 2328- 39 31 A9 0B 8D F7 25 20 2398- 35 A9 08 20 72 24 AE FC 
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LDA #10 BEQ L441 


JSR LIGNE BPL L31 
LDA #11 L310 JMP ANNEME ; oui 
STA WNDTOP L4 CMP #CAN ; récepteur veut annuler ? 
JSR HOME BNE L44 
JSR CROÛUT JMP  ANNREC + oui 
INC WNDTOP L44 CMP  #NACK ; récepteur n'a pas compris ? 
JSR MOUTKCR BNE L45 ; oui, on recommence max 10 fois 
LDA #6 L441 INC NESSAI . 
JSR MOUT LDA NESSAI ; on réémet 10 fois maximum 
LDA #0 ; initialise n° blocs CMP #11 
STA NUMBLOC BNE L4411 
STA NUMBLOC+1 JMP  ANNEMEO 
L4411 JSR MOUTKCR 
LDX NESSAI 
BOUCLE JSR RECOIT ; attendre récepteur LDA #0 ; affiche n° de l'essai 
BCS Lil JSR LINPTR 
LDA KBD LDA #2 : puis message 2 
BIT STROBE ; émetteur veut annuler ? JSR MOUT 
CMP #$9B LDX NUMBLOC 
BNE BOUCLE LDA NUMBLOC+1 
JUMP  ANNEME ; oui JSR LINPTR ; puis numéro du bloc 
| LT CMP  #CAN ; récepteur veut annuler ? JMP L30 
BEQ L2 ; oui L45 CM #ACXK 
CMP  #NACK ; nack = commencer BNE L31 ; récepteur a compris, 
| BEQ L22 INC NUMBLOC ; on passe au bloc suivant 
| BNE BOUCLE BNE L450 
L2 UMP  ANNREC ; on ferme INC NUMBLOC:1 
2 L450 JMP L3 ; on continue 
L22 JMP CONTBLC ; constitue le bloc 0 
L3 JSR LITFIC ; lit tout le fichier FINFICH LDA #1 ; on annonce fin de transm 
BCC DECO STA NESSAI 
CMP #$4C ; fin fichier ? FINO JSR MOUTKCR ; et on attend une réponse 
BNE L333 ; oui, le clore LDA #8 
JMP FINFICH JSR MOUT 
LDX NESSAI 
L333 JSR ERREUR ; non, afficher l'erreur LDA #0 
LDA CAN ; envoie annulation JSR LINPTR 
JSR ENVOI LDA #EOT 
JUMP CLOTFIC ; et le fermer JSR ENVOI 
DECO JSR CODEBLOC ; code le bloc LDA #11 
JSR MOUTKCR STA ATTENTE 
LDA #1 FIN2 JSR RECOIT 
STA NESSAI BCS FIN3 
JSR MOUT ; Message 1 LDA KBD 
LDX NUMBLOC BIT STROBE 
| LDA NUMBLOC+1 CMP #$9B 
| JSR LINPTR ; n° du bloc BEQ FIN4 
| L30 JSR ENVBLOC ; et l'envoie JSR WAIT 
| LDA #11 DEC ATTENTE 
STA ATTENTE LDA ATTENTE 
L31 JSR RECOIT ; attendre acquiescement BEQ FINS 
BCS L4 BNE FIN2 
LDA KBD ; émetteur veut abandonner ? 
BIT STROBE FIN3 CMP  #CAN ; on recoit CAN ou ACK ? 
CMP #$9B BEQ FIN4 
BEQ L310 CMP HACK 
JSR WAIT ; attend 10 X 1 seconde BEQ FIN4 
DEC ATTENTE 
LDA ATTENTE FINS INC NESSAI ; 10 essais maxi 
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LDA NESSAI 
CMP #11 
BNE FINO 


FIN4 JSR MOUTKCR 
LDA #4 
JSR MOUT 


CLOTFIC JSR CLOSEFIL 
JSR DECONNE 
JSR GETRET 
JUMP  ENVFICH 


ANNEMEO JSR MOUTKCR 
LDA #7 
JSR MOUT 
ANNEME LDA #1 
STA NESSAI 
ANNEME1 JSR MOUTKCR 
LDA #5 
JSR MOUT 
LDX NESSAI 
LDA #0 
JSR LINPTR 
LDA  #CAN 
JSR ENVOI 


LDA #11 

STA ATTENTE 
A32 JSR RECOIT 

BCS A4 

LDA KBD 

BIT STROBE 

CMP #$9B 

BEQ A41 

JSR WAIT 

DEC ATTENTE 

LDA ATTENTE 

BEQ A40 

BPL A32 


A4 CMP  #CAN 
BEQ A41 
CMP  #ACK 
BEQ A41 


A40 INC NESSAI 
LDA NESSAI 
CMP #11 
BNE ANNEME1 

A41 JSR  DECONNE 
JSR CLOSEFIL 
JSR GETRET 
JMP  ENVFICH 


ANNREC JSR  MOUTKCR 
LDA #3 
JSR MOUT 
JUMP CLOTFIC 


MOUTCR JSR CROUT 





; clore fichier 
; déconnexion du Minitel 


rs on renonce 


; annulation émetteur 





; attendre acquiescement 
; de l'annulation 
; émetteur veut abandonner ? 


; si annulation ou compris 
; => fini 


; sinon, on recommence 10 fois 


; message 3 


Téléchargement /Téléréception 


Préfixe /UNIDISK3.5/TRANS/ 
Blocs libres sur ce disque : 126 


Réception du fichier : 
FICHIER.MAC.F 


* Attente du bloc 0 

* Bloc reçu 

* Nombre de blocs à recevoir : 17 
* Emetteur : Macintosh 


Mercredi 14 Janvier 1987, 15:46. 





MOUTK LDY #3 
MOUTO LDA MT2,Y ; affiche " * " avant chaque 


MOUT LDY #$FF 
MOUT1 INY / message 


MOUT2 INY 


MOUT3 RTS 


CONTBLC LDA #1 ; Prépare le bloc de controle 
STA BUFNC ; c'est un Apple // 
LDY #2 

CONTO LDA EOF,Y 
STA BUFNC+80+12,Y 


BPL CONTO 
LDY #9 

CONT1 LDA PARLSTG,Y ; paramètres de GetFilelnfo 
STA BUFNC+80,Y 


BPL CONTI 
LDA LNGPATHN ; et nom précédé de 1ng 
STA BUFNC+80+16 
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INY RECO 
CONT2 LDA  PATHNAME, Y - 

AND ##01111111 

STA BUFNC+80+16,Y 


BNE CONT2 
JMP DECO 


NOMFIC ASC "Nom du fichier à tranférer :" 
DFB 0 
MESBLOC ASC " blocs lui sont affectés." 
DFB $8D,$8D 
MESBLOCM ASC "Mettez le Minitel sous tension, puis..." 


DFB 0 
MT1 DFB 1 
ASC "Emission du bloc n° " 
DFB 2 = 
ASC ‘ème tentative pour bloc n° " 
DFB 3 : 
ASC "Récepteur a demandé annulation" RECOR 
DFB 4 
ASC "Transmission terminée" 
DFB 5 
ASC "Annulation en cours, essai n° " 
DFB 6 
ASC "Attente du récepteur..." 
DFB 7 
ASC "Hélas, il faut renoncer..." 
DFB 8 
ASC "Annonce de fin de transmission..." 
DFB 0 
MT2 ASC "=« vw 


ATTENTE DS 3 
NUMBLOC DS 
NESSAI DS “: 


EFFDATE LDX #39 ; efface la date 
LOA "7: 
EFFDATEl STA $7CE,X RECS03 
DEX 
BPL EFFDATE1 
RTS 


RECFICH JSR EFFDATE COMM 
LDA #3 
STA WNDTOP 
JSR HOME 
JSR LITPREF 
JSR CROUT 
LDA LNGPATAN 
STA  PATHNAME DEBREC 
JSR GFI ; place sur volume ? 
BCC RECO 
JSR GETRET 


VADEB 
#14 
MOUTREC ; l'affiche 
AUXTYPG 


























































BLOCKUS 


FREEVOL garde place libre sur vol 


LU 


AUXTYPG+1 
BLOCKUS+1 
FREEVOL+1 ; id 
LINPTR 


FREEVOL 
RECOR 
FREEVOL+1 
RECOR 
#$7D 
ERREUR 
FINRECP 


de la place sur ce vol. ? 


0 


MOUTCR 
#1 
MOUTREC 
MOUTCR 
#10 ; limite fenetre 
LIGNE 

#11 

WNDTOP 

HOME 

CROUT 

CROUT 

WNDTOP 


réception du fichier... 


DA 


#>MESBLOCM 

#<MESBLOCM ; mettre Minitel sous tension 
STROUT 

#>RECSTR 

#<RECSTR ; faire RETURN ou ESC 

STROUT 


KBD 
RECS03 
STROBE 
#$8D 
COMM 
+59 
RECS03 
FINRECP 


HOME 
CONNECT 
#0 ; attend bloc 0 


- NUMBLOC 


NUMBLOC+1 
DRAPBLO 


- #1 ;ÿ initialise 10 essais 


NESSAI 
DRAPBLO 
REC11E 
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LDA #10 BNE REC11 


STA NESSAI JSR RECOIT ; vide carte au cas où 
LDA 4#NACK 
RECI11E JSR MOUTKCR ; message attente bloc n° JSR ENVOI 
LDA #8 -BNE RECOO 
JSR MOUTREC 
LDX  NUMBLOC RECREN JSR MOUTKXCR ; récepteur abandonne 
LDA NUMBLOC+1 LDA #9 
JSR LINPFTR JSR MOUTREC 
JSR MOUTCR 
LDA #0 LDA #CAN 
STA ATTENTE JSR ENVOI 
STA ATTENTE+1 JSR CDG 
STA ATTENTE+2 UMP FINRECP 
LDA NUMBLOC ; si bloc O0 envoyer 
BNE RECO0 ; régulièrement NACK RECBLOC JSR INITCOD ; reçu SOH, c'est un bloc 
LDA NUMBLOC+1 INC $7F7 
BNE RECOO LDA #0 
LDA #NACK STA CHECKSUM 
A JSR ENVOI 
JSR RECOITI 
RECOO JSR RECOIT ; attend gqchose BCS RECSI 
BCS REC1 JMP  RECERR 
INC ATTENTE ; pendant 10 secondes RECS1 AND ##00111111 
BNE RECO01 STA BUFC-2 ; sauve n° bloc 
INC ATTENTE+1 
BNE RECO01 JSR RECOITI 
INC ATTENTE+#2 BCS RECS2 
RECO01 LDA ATTENTE JMP  RECERR 
BNE RECOO02 RECS2 AND ##00111111 
LDA ATTENTE+1 STA BUFC-1 ; sauve inverse n° bloc 
CMP #135 
BNE RECO02 JSR RECOITI ; code inutile pour Apple // 
LDA ATTENTE+2 BCS RECBLOC1 
CMP #2 JMP  RECERR 
BEQ RECO003 
RECBLOC1 INC $7F7 
RECO02 LDA KBD JSR RECOITI1 ; réception du bloc 
BIT STROBE ; si ESC on renonce BCS RECS5 
CMP 4#$9B JMP  RECERR 
BEQ RECREN RECSS5 LDY #0 
BNE RECOO STA (COMPTC),Y 
CLC 
RECO03 INC NESSAI ADC CHECKSUM 
LDA NESSAI AND ##00111111 
CMP #11 STA CHECKSUM 
BNE RECI1E INC COMPTC 
BEQ RECREN ; on abandonne après 10 essais BNE RECBLOC2 
INC COMPTC+1 
REC1 CMP #EOT ; on a reçu EOT ? RECBLOC2 LDA COMPTC 
BNE RECIA CMP 4#$AC 
JUMP  RECEOT BNE RECBLOCI1 
RECI1A CMP  #CAN ; CAN ? LDA COMPTC+1 
BNE RECI1B CMP #519 
JUMP  RECCAN BNE RECBLOC1 
REC1B CMP. #SOH ; début bloc ? LDA f"" 
BNE RECIC STA $7F7 
UMP  RECBLOC 
JSR RECOITI ; reçoit checksum 
RECI1C LDX #10 BCS RECS04 
REC11 JSR WAIT ; autre chose ? JMP RECERR 
DEX ; attendre 9 secondes puis NACK 


2790- 03 4C E5 28 A0 00 91 1A 2800- A9 OD 20 36 29 20 16 35 2870- A9 19 20 9A 31 20 16 35 
2798- 18 6D 87 31 29 3F 8D 87 2808- A9 09 20 36 29 20 5E 24 2878- A0 2B A9 76 20 3A DB 20 
27A0- 31 E6 1A DO 02 E6 1B A5 2810- 20 1C 35 4C 08 26 20 CA 2880- FB DA 20 82 32 20 1C 35 
27A8- 1A C9 AC DO DC A5 1B C9 2818- 30 20 16 35 A9 OA 20 36 2888- 4C 29 29 AD BB 2B CD 59 
27B0- 19 DO D6 A9 A0 8D F7 07 2820- 29 AD BC 2B F0 13 AD BD 2890- 14 FO 04 BO OA 90 3E AD 
27B8- 20 B7 31 BO 03 4C ES5 28 2828- 2B DO 03 20 9A 32 20 31 2898- BA 2B CD 58 14 90 36 20 
27C0- 29 3F CD 87 31 FO 03 4C 2830- 2D 90 03 4C A7 28 4C C5 28A0- D5 29 90 0E 20 D2 31 A9 
27C8- E5 28 AD FE 16 49 3F CD 2838- 28 20 4B 29 20 C4 29 20 28A8- 19 20 9A 31 20 1C 35 4C 
27D0- FF 16 F0 03 4C E5 28 AD 2840- 16 35 A9 02 20 36 29 AE 28B0- 08 26 AD AE 35 8D 6E 35 
27D8- FA 25 29 3F CD FE 16 FO 2848- 58 14 AD 59 14 20 24 ED 28B8- 20 1F 2D BO EA AD BC 2B 
27E0- 35 90 15 EE FE 16 AD FA 2850- 20 16 35 A9 03 20 36 29 28C0- DO 03 CE BC 2B EE FA 25 
27E8- 25 29 3F CD FE 16 DO 08 2858- AD 00 14 18 69 04 20 36 28C8- DO 03 EE FB 25 A9 06 20 
27F0- A9 06 20 9A 31 4C A8 26 2860- 29 AD BD 2B DO 25 AD 54 28D0- 9A 31 4C A8 26 A9 7D 20 
27F8- A9 19 20 9A 31 20 16 35 2868- 14 C9 04 FO 1E 20 88 31 28D8- D2 31 A9 19 20 SA 31 20 
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RECSO4 AND 


##00111111 
CMP  CHECKSUM 
BEQ RECS4 

JMP  RECERR 


BUFC-2 
EOR ##00111111 
CMP  BUFC-1 
BEQ RECS41 
UMP  RECERR 
RECS41 LDA NUMBLOC 
AND ##00111111 
CMP BUFC-2 
BEQ RSUITE 
BCC RECMANQ 


RECS4 LDA 


DEJAEU INC BUFC-2 
LDA NUMBLOC 
AND ##00111111 
CMP BUFC-2 
BNE  RECMANQ 
LDA #ACK 
JSR ENVOI 
JMP  DEBREC 


RECMANQ LDA #CAN 
JSR ENVOI 
JSR  MOUTKCR 
LDA #13 
JSR  MOUTREC 
JSR  MOUTKCR 
LDA #9 
JSR  MOUTREC 
JSR  MOUTCR 
JSR CDG 
JMP  RECFICH 
RSUITE JSR DEBUDEC 
JSR  MOUTKCR 
LDA #10 
JSR  MOUTREC 
LDA  DRAPBLO 
BEQ RSUITEO 
LDA TYPEAPP 
BNE  SUITTRA 
JSR DECODMAC 
SUITTRA JSR EF 
BCC RECENROK 
: JMP  ASSEZERR 
RECENROK JMP ASSEZ2 


RSUITEO JSR FAITNOM 
JSR  AFFNOM 
JSR  MOUTKCR 
LDA #2 
JSR  MOUTREC 
LDX  BUFNC+88 
LDA BUFNC+89 
JSR LINPTR 


JSR MOUTKCR 
LDA #3 
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D 


D 


+ 


» 


LU 


Lo 


Do 


ñ 





; le vérifie 


n° bloc valide ? 


vérifier n° bloc 


est-ce le précédent ? 
non, on renonce 


; oui, on 


envoie ack, boucler 
bloc déjà reçu 


on en a raté, renoncer 


CDG = clore fichier, déconnecter 
et attendre RETURN 


tvb, on décode 


bloc reçu 


; bloc 0, on crée et on ouvre 


enregistrer un bloc 


constitue le nom 
l'affiche 


; affiche nb blocs du fichier 


; à recevoir 


quel ordinateur émet ? 





RSUITEO1 


ASS 


ASSEZ 


ASSEZERR 


ASSEZ11 


ASSEZ2 


ASSEZ1 


TROPEU 


-#$7D 


MOUTREC ; on éffiche son nom 
BUFNC | 


#4 
MOUTREC 


TYPEAPF ; ça vient d'un Mac ? 
RSUITEO1 
BUFNC+84 
#4 
RSUITEO1 
WAIT 
#CAN 
ENVOI 
MOUTKCR 
#>FICINC 
#<FICINC 
STROUT 
CROÛT 
BIP 

CDG 
FINRECP 
FREEVOL+1 ; controle place disponible 
BUFNC+89 ; poids forts 

ASS 

ASSEZ 

TROPEU 

FREEVOL ; poids faibles 

BUFNC+88 

TROPEU 


c'est du texte ? 


Do 


non, alors annule 


LT 


car 
inexploitable 


. 


CREFIC on créé le fichier 
ASSEZ11 


ERREUR 


D 


#CAN 
ENVOI 
CG 
RECFICH 


problème à la création, 
on demande annulation 


LNGPATHN ; on ouvre le fichier créé 
PATHNAME 

QUVREFIC 

ASSEZERR 

DRAPBLO 

ASSEZ2 

DRAPBLO 

NUMBLOC 

ASSEZ1 

NUMBLOC+1 

#ACK ; on acquièsce pour bloc 0 
ENVOI 

DEBREC 


; pas de place 
ERREUR 
SCAN 
ENVOI 
CDG 
FINRECP 


; on demande annulation 
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RECERR JSR MOUTKCR ; bloc mal reçu INY 


LDA #11 - LDA BUFNC+397,Y 
JSR MOUTREC ORA #$80 
EDA gr STA PATHNAME+1,X 
STA $7F7 CPY BUFNC+96 
LDA #NACK BNE RECH2 
JSR ENVOI STX  PATHNAME 
JMP DEBREC STX LNGPATHN 
RTS 
RECCAN JSR  MOUTKCR ; reçu CAN MAC LDY FICMAC ; c'est un mac, on change le nom 
LDA #12 MAC1 LDA FICMAC,Y ; (caractères exotiques) 
JSR MOUTREC STA PATHNAME, Y 
JSR MOUTCR DEY 
LDA #ACK ; on acquièsce et BPL MAC1 
JSR ENVOI ; on annule aussi LDA PATHNAME 
JSR CDG STA LNGPATHN 


JMP  FINRECP 
LDX BUFNC+160 ; affiche date 


RECEOT JSR SETFINF ; reçu EOT DATEMAC LDA BUFNC+160,X 
A LDA #ACK ; on acquièsce LDY #0 ; en recodant carac du Mac 
JSR ENVOI ; et on ferme DATEMACO CMP ACCENT,Y 
JSR  MOUTKCR ; transmission OK BEQ DATEMAC1 
LDA #15 INY 
JSR MOUTREC INY 
JSR MOUTCR CPY #66 
JSR CDG BNE DATEMACO 
JUMP  FINRECP BEQ DATEMAC2 
DATEMAC1 INY 
FINRECP LDA #3 LDA ACCENT, Y 
STA WNDTOP DATEMAC2 ORA ##10000000 
JSR HOME STA $7CF,X 
JSR LITPREF DEX 
JUMP CHOIX BNE DATEMAC 
RTS 
MOUTREC LDY #$FF ; affiche un message 
MOUTRCI1 INY FICMAC STR "FICHIER.MAC.A" 
CMP MESSREC, Y 
BNE  MOUTRC1 AFFNOM  LDA #9 : affiche le nom reçu, tronqué 
MOUTRC2 INY JSR GBASCALC 
LDA MESSREC, Y LDY  PATHNAME 
BPL MOUTRC3 RECNM3 LDA PATHNAME, Y 
JSR COUT DEY 
JUMP  MOUTRC2 STA (GBASL),Y 
MOUTRC3 RTS BNE RECNM3 
RTS 
FAITNOM LDA BUFNC 
STA TYPEAPP CREFIC LDA #$C3 
BEQ MAC ; Si MAC émétteur, on renomme STA ACCESBT ; (unlock) 
LDY BUFNC+96 ; charge long pathname reçu LDY #2 
RECHO LDA BUFNC+97,Y CREFIC1 LDA BUFNC+80+4,Y 
ORA #$80 ; tronque au dernier éventuel / STA FILETYPE,Y ; type de fichier et 
CMP #"/" DEY ; aux file type 
BEQ RECH1 BPL CREFICI 
RECHOO  DEY LDA #1 
BNE RECHO STA STORAGE ; Stockage seedling en standard 
DEY JSR CREFICH 
BMI RECHI1 BCS CREFIC2 
RECH1 CPY BUFNC+96 LDY #2 
BEQ RECHOO EOF1 LDA BUFNC+92,Y ; sauve l'EOF 
RECH11 LDX #$FF STA POSEOF, Y 
RECH2 INX DEY 
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À 


BPL EOF1 FICINC ASC-+ "Ce fichier Mac est incompatible" 


RTS DFB $8D 
CREFIC2 CMP #$47 ; nom existe déjà ? ASC {seul le format TEXT convient)" 
BEQ CREFIC3 DFB $8D,0 
SEC 
RTS FREEVOL DS 


CREFIC3 LDX PATHNAME ; si oui, on incrémente le dernier DRAPBLO DS 1 
INC PATHNAME,X ; caractère entre 0 et Z en évitant TYPEAPP DS 1 
LDA PATHNAME,X ; les codes interdits 


CMP gui Re 
BEQ CREFIC4 * QUITTER 
CMP #$DB ; est-ce un " PORT AGINEÉRIENNES 
BEQ CREFICS 
STA PATHNAME, X QUITTER JSR TEXT 
CREFIC31 JSR AFFNOM JSR HOME 
JMP CREFIC JMP BASIC 
CREFIC4 LDA fan ; 
CREFIC40 STA PATHNAME,X OMR ONE TT, 
BNE CREFIC31 * INPUT 
CREFIC5 LDA #"Oo" pe ne 
BNE CREFIC40 INPUT LDX #0 
STX POSC ; position du curseur 
RECSTR  DFB $8D,$8D,$8D,$8D 
ASC " <RETURN> = commencer la réception" LDY LONG ; installe les points 
DFB $8D LDA $"." 
ASC " sur ce volume" INPOINT DEY 
DFB $8D, $8D BEQ INCLAV 
ASC " <ESC> = renoncer..." STA (GBASL),Y 
DFB O0 Ë BNE INPOINT 
/ MESSREC DFB 1 INCLAV LDA #")" ; initialise le curseur 
ASC "Réception du fichier : " STA (GBASL),Y 
DFB 2 
ASC "Nombre de blocs à recevoir : " INCLAV1 LDA (GBASL),Y ; curseur clignotant 
DFB 3 EOR #1 
ASC "Emetteur : " STA (GBASL),Y 
DFB 4 LDX #$2C ; dosage du scintillement 
ASC "Macintosh" INCLAVI1 DEX 
DFB 5 BNE INCLAVI11 
ASC "Apple //" LDA KBD 
DFB 6 BPL INCLAVI 
ASC "IBM" BIT STROBE 
DFB 7 
ASC "Serveur Pom's" CMP $#59B ; esc ? 
DFB 8 BEQ INESC 
ASC "Attente du bloc " CMP #$88 ; flèche gauche ? 
ASC "On renonce" BEQ INRETOUR 
DFB 10 CMP #$FF ; del ? 
ASC "Bloc reçu" BEQ INRETOUR 
DFB 11 CMP #$8D ; return ? 
ASC "Réémission du bloc demandée" BEQ INVALID 
DFB 12 CPY LONG ; dernier carac ? 
ASC "Emetteur renonce" BEQ -INERR ; oui, alors pas d'autre 
DFB 13 CM 3J"." Reise 
ASC "Bloc manquant" BCC INERR 
DFB 14 CMP my" A 
ASC "Blocs libres sur ce disque : " BEQO SLASH 
DFB 15 CMP "A" ; une lettre ? 
ASC "Terminé, OK" BCC CHIFFRE 
DFB 0 AND ##11011111 ; convertit minusc en MAJ 
CMP #$DB FI is) 
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BCS INERR 
BCC INLETTRE 


SLASH CPY #0 
BEQ INLETTRE 
BNE CHIFFRE 


CHIFFRE CMP #":" 


BCS INERR 

CPY #0 

BEQ INERR 
CHIFFRE1 TAX 

DEY 

LDA (GBASL),Y 

INY 

CMP ÿ"/" 

BEQ INERR 

TXA 


BMI INLETTRE 


INERR JSR BIP 
BCS INCLAVI 


INESC LDY LONG 


LDA fm" 
INESC1 STA (GBASL),Y 

DEY 

BPL INESC1 

LDA #0 

STA BUFFIN 

SEC 

RTS 


INRETOUR LDA POSC 
BEQ INERR 
CMP LONG 
BNE INRI 
DORA 1e 
BNE INR2 

INRI1 LDA #"." 


INR2 STA  (GBASL),Y 


DEC POSC 
JMP  INCLAV 


INLETTRE STA (GBASL),Y 
INC POSC 


UMP  INCLAV 


INVALID STY TPS 
LDA #"" 
INVALIDO STA (GBASL),Y 
CPY LONG 
BEQ INVALIDI 


BNE INVALIDO 


INVALID1 LDY TPS 
LDA #0 
STA BUFFIN,Y 
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'S 


“ 


î 


Le 


Do 





> à Z 


/ est autorisé en premier 
caractère, mais pas après 
un autre / 


c'est bien un chiffre ? 
non, c'est :;<=>? ou bien à 


; c'est le ler carac ? 


oui, pas de chiffre 
sauve carac 
le précédent est un / ? 


oui alors pas de chiffre 
restaure carac 
ok 


/ esCc —-> carry set 


ler carac ? 
oui, pas de retour 


; si dernier, remplace 


par espace 
sinon par un point 


affiche carac 


on efface curseur 
et points restants 


finir la chaine par 0 


BMI INVALID3 ; chaine vide = rien à recopier 
INVALID2 LDA (GBASL),Y ; stocke la chaine 
STA BUFFIN,Y 


BPL INVALID2 
INVALID3 CLC ;: quitte avec carry clear 


BUFFIN DS 40 


POSC DS 1 
LONG DS I 
TPS DS 1 





Source INTERPOMS.3 


LÉ 


* CATALOG 


LDY #0 ; Demande Catalog au 
CATO LDA CMD,Y ; Basic Système 

STA $200,Y ; en stockant la commande 

CMP #$8D ; dans buffer clavier 


BNE CATO 


CAT1 JSR $BE03 
CMP #6 
BEQ OKCATO 
CMP #8 
BNE OKCAT 
OKCATO JSR ERREUR 
OKCAT JSR GETRET ; Attend Return 
JSR HOME 
JSR LITPREF ; Réaffiche préfixe 
JMP CHOIX : retourne au menu 


* CHERCHE DATE/HEURE 
* CREE FICHIER 


; répupère l'heure 
DFB GETTIME ; s'il y a une carte 
; horloge (non testé) 
LDY #3 
BCLC LDA $BF93,Y 
STA DATECRE, Y 


BPL BCLC 





a 





JSR MLI ; créé le fichier * LIT FICHIER 


DFB CREATE tn nennttnenntnteS 
DA PARLST 
RTS LITFIC LDA REFNUM ; lit un bloc de 512 
PARLST DFB 7 STA REFNUMW ; caractères 
ADPATHN DA PATHNAME JSR MLI 
ACCESBT DS 1 DFB READ 
FILETYPE DS 1 DA PARLSTW 
AUXFLTP DS 2 BCC OKL 
STORAGE DS 1 OKL RTS 
DATECRE DS 2 
HEURCRE DS 2 RE RIRE EE LS 
* AJUSTE FIN DE FICHIER 
mm mme Émmmmmmmmmmmm—m——— 
* GET EOF 
fmmmmmmmmmm————— SETFINF LDA REFNUM ; en fonction de la longueur 
STA REFNUM7 ; logique reçue. 
GETLONG JSR MLI ; longueur logique du JSR MLI ; À défaut, la longueur 
DFB GETEOF : fichier ? DFB SETEOF : physique (n X 512) serait 
DA PAREOF DA PARLST7 ; retenue 
BCC OKGET BCC OKSETEOF 
JSR ERREUR JSR ERREUR 
OKGET RTS OKSETEOF RTS 
PAREOF DFB 2 PARLST7 DFB 2 
REFNUMG DS 1 REFNUM7 DS 1 
EOF ps 3 POSEOF DS 3 
LE Rmmmmmmmmmmmmm—m— 
* OUVRE FICHIER * CLOT FICHIER 
mm mm LPS 
OUVREFIC JSR MLI ; ouvre le fichier CLOSEFIL LDA REFNUM ;: clot tout fichier 
DFB OPEN STA REFNUMC ; sans préciser de n° 
DA  PARLSTO JSR MLI ; de référence 
BCC OKO DFB CLOSE 
JSR ERREUR DA PARLSTC 
OKO RTS RTS 
PARLSTO DFB 3 PARLSTC DFB 1 
DA PATHNAME REFNUMC DFB O0 
DA FILEBUF 
REFNUM DS 1 ere 
* ONLINE 
Rmmmmmmummmmmmmmm— LÉ 
* ECRIT FICHIER 
Re ——— ONL JSR HOME ; quels sont les 
LDY #>MESONL ; volumes en lignes ? 
EF LDA REFNUM ;: écrit un bloc de LDA #<MESONL 
STA REFNUMW : 512 caractères JSR STROUT 
JSR MLI JSR CROUT 
DFB WRITE JSR MLI 
DA PARLSTW DFB ONLINE 
BCC OKW DA PARLSTN 
JSR ERREUR BCC ONLINEO 
OKW RTS JSR ERREUR 
PARLSTW DFB 4 ONLINEO LDA #15 sexamine les 15 x 16 octets 
REFNUMW DS 1 STA CNT 


DA BUFNC ONLINED LDA CNT 








TAY ASC M mmmmmmmmm—— : 
LDA BUFONLIN,Y ;entete ler lecteur DFB $8D,0 
STA LNG MESONO ASC "Port " 
AND ##00001111 DFB 0O 
BEQ ERR ‘longueur = 0 ? MESON1 ASC "Lect " 
LDX #0 DFB 0 
ONLINEG LDA MESONO,X senvoie slot! 
BEQ ONLINEH Re 
JSR COUT * GET FILE INFO 
INX Re 
BNE ONLINEG 
ONLINEH LDA LNG GFI JSR MLI ; récupères les infos 


LSR srécupère n° slot DFB GETFINFO ; sur un fichier 
LSR DA  PARLSTG 
LSR BCC OKG 
LSR JSR ERREUR 
AND ##00000111 OKG RTS 
ORA ##10110000 PARLSTG DFB $A 
JSR COUT DA PATHNAME 
. LDX #0 ACCBITG DS ; lect/écrit/renam... 
ONLINEE LDA MESON1,X senvoie 'drive' FILETYG DS 2 ; type de fichier 
BEQ ONLINEF AUXTYPG DS 2 ; param auxiliaire (1ng par ex) 
JSR COUT STORAGG DS à ; type de stockage 
A INX BLOCKUS DS 2 ; nb de blocs affectés 
BNE ONLINEE HEURDAT DS 8 
ONLINEF LDA #"1" 
BIT LNG steste si drive 1 ou 2 Re —— 
BPL ONLINE1 * CHANGE PREFIXE 
LDA # "2 Li Rmmmmmmmmmm————— 
ONLINEI JSR COUT . 
LDA #"" MODPREF JSR HOME 
JSR COUT JSR LITPREF 
LDA LNG MODPR LDA #7 
AND #$F STA CV 
STA LNG JSR VTAB 
LDA #"/" LDA #0 
JSR COUT STA CH 
AFF INY ;saffiche nom volume LDY #>MESMOD 
LDA BUFONLIN,Y LDA  #<MESMOD 
ORA ##10000000 JSR STROUT 
JSR COUT LDA #38 
DEC LNG STA LONG 
BNE AFF LDA #9 
LDA #$8D JSR GBASCALC 
JSR COUT INC GBASL 
ERR DEC CNT JSR INPUT 
BPL ONLINED BCS OKCH ; esc ? 
JSR GETRET LDY TPS 
VADEB JSR HOME BNE MODO 
JSR LITPREF JSR BIP 
UMP CHOIX BEQ MODPR 
MODO STY PATHNAME # stocke long 
PARLSTN DFB 2 e INC PATANAME 
DFB 0 BEQ MODMLI 
DA BUFONLIN DEC GBASL 
BUFONLIN DS 256 MOD2 LDA (GBASL),Y 
CNT DS 1 INY 
LNG DS 1 STA PATHNAME, Y 
MESONL DFB $8D DEY 
ASC "Volumes en ligne :" DEY 
DFB S$8D BPL MOD2 
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PORN à 08 GS Se Ce D CR UT DRE 1S SSSR RS DIRE 


MODMLI JSR MLI 
DFB STPREFIX 
DA PARLSTCP 
BCC OKCH 


JSR CROUT 


JSR ERREUR 
JSR GETRET 
JMP  MODPREF 
OKCH JMP  VADEB 
PARLSTCP DFB 1 
DA PATHNAME 
MESMOD ASC "Nouveau préfixe :" 
DFB $8D, $8D 
ASC "/" 


LITPREF JSR MLI ; le lit 
DFB GTPREFIX 
DA PARLSTCP 
BCC LIT 
JSR ERREUR 


LIT LDA #3 
STA CV 
JSR VTAB 


LDX #0 

LITO LDA MESSPR, X 
BEQ LITOO 
JSR COUT 


BNE LITO 


LITOO LDA PATHNAME 

STA LNGPATHEN 

LDX #1 ; l'affiche 
LITI LDA  PATHNAME, X 

ORA ##10000000 

JSR COUT 


DEC  PATHNAME 

BNE LITI 

JMP  CROUT 
MESSPR ASC "Préfixe " 


CODEBLOC JSR INITCOD 


DEBCOD LDA #$FF 
LDX #3 


;OCTETS DESTINATION À 11xxxxxx 


CODEO 


CODE1 


CODE3 


CODE4 


CODES 


CODE6 


CODE7 


CODE81 


D1,Xx 


CODEO 


#2 “PREND 3 OCTETS À TRAITER 


(COMPTNC) ,Y 


S1,Xx 


CODE1 


#5 LES TRANSFORME EN 4 OCTETS 
S1 ‘DE D1 À D4 


CODE3 


CODE4 


CODES 


#5 
D1,Y 
(COMPTC) ,Y 


CODE81 


COMPTNC ‘ON À FINI LES 512 ? 
#1 

CODE3 

COMPTNC+1 

#516 





30 


Pom's n° 28 





CODE39 JSR 


CODEINC CLC 


CODE10 CLC 


CODE11 RTS 


INITCOD LDA 


DEBUDEC JSR 


DEBDECOD LDY 


DECODE1 LDA 


DECODE2 LSR 


DECODE3 LSR 


DECODE4 LSR 





CODE9 


OUI Octeis non codés 


CODEINC “NON : INCREM $99 $79 #04 
DEBCOD lolol1Erloloh} lollrlrlrlololr] lolololololslolo 





COMPTNC 
#3 
COMPTNC 
CODE10 
COMPTNC+1 Ë ; 
XErlolol sf: lo] EF lol ro fr fr fr 
COMPTC $66 $57 
#4 Octets codés 
COMPTC 
CODE11 Le principe retenu pour le codage 
COMPTC+1 
LDY #3 
#0 DECODES LSR D2 
COMEINE ROR S2 
COMPTC _. 
#>BUFNC BPL DECODE5 
COMPTNC+1 
#>BUFC EDY- Hi 
COMPTC+1 DECODE6 LSR D2 
ROR 51 
DEY : 
us BPL DECODE6 
BLOC 
FE LDY #5 
DECODE7 LSR D1 
INITCOD ROR S1 
| DEY 
#3 BPL  DECODE7 
#3 
(COMPTC) , Y LDY #2 
D1,X DECODE8 LDA S1,Y 
STA  (COMPTNC),Y 
DEY 
DECODE1 BPL DECODES 
#5 LDA COMPTNC 
D4 CMP #1 
s3 BNE  DECODE9 
LDA  COMPTNC+1 
DECODE2 CMP #516 
BNE  DECODE9 
#1 RTS 
D3 
s3 DECODE9 JSR CODEINC 
JMP  DEBDECOD 
DECODE3 
Émmmmmmmmmmmm—m—— 
#3 * ENVOI UN BLOC 
D3 ER EE MERS 
S2 
ENVBLOC JSR INITCOD 
DECODE 4 LDA #0 
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STA CHECKSUM 
LDA #SOH 

JSR ENVOI 

LDA NUMBLOC 
ORA ##11000000 
JSR ENVOI 

EOR #$3F 

JSR ENVOI 

JSR ENVOI 


ENVO INC $7F7 


ADC CHECKSUM 

STA CHECKSUM 

INC COMPTC 

BNE ENVI 

INC COMPTC+1 
ENVI LDA COMPTC 

CMP #$AC 

BNE ENVO 

LDA COMPTC+1 

CMP #$19 

BNE ENVO 

LDA CHECKSUM 

ORA ##11000000 

JSR ENVOI 

LDA #$A0 

STA $7F7 


CHECKSUM DS 1 


* ATTENDRE 1 SEC 


Am mm mm mme 


WAIT LDY #10 

W1 LDA #$C6. 
JSR  $FCA8 
LDA KBD 


CMP #$9B 


5 


LS 


LE 


î 





envoi code ASCII 1 


envoi n° bloc 


et en complément 
utile pour Mac d'aligner pair 


flash sur bas écran 
charge un caract 


l'envoie 


incrémente la somme 
de controle 


; en envoie 684 en tout 


envoie le checksum 


; efface bas écran 





ENVOI PHA 
ENVOI LDX 40 
LDA (STATUS, X) 


AND ##00010000 ; attendre libération de 


BEQ ENVOII ; la carte avant envoi 
PLA 

STA (DATA, X) 

RTS 


* RECEVOIR UN CARAC DANS L'ACC 
* CARRY CLEAR SI PAS DE CARACT 


Rommmmmmsmmm——— 


RECOIT LDX #0 
LDA (STATUS, X) 
AND ##00001000 
BNE OK 


CLC ; on revient bredouille 


OK LDA (DATA, X) ; on à eu un caract 


AND ##01111111 


* RECEVOIR 1 CARAC 
sé SEC SI RECU 


Le CLC SI PAS RECU AVANT X TPS 


a —— = —— 





RECOIT1 LDA #0 
RECOITI1 JSR RECOIT 


BœC 

RTS 
RECOIT2 INC STREC 

BNE 

INC 

BNE 
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ERREUR STA CODERR 


JSR BIP 

LDY #$FF 
ERREURI INY 

LDA ERREURS, Y 

CMP  CODERR 

BEQ ERREURO 

CMP #0 

BNE ERREURI 


ERREURO  INY 
LDA ERREURS, Y 
BPL ERREURO 
ERREUR2 JSR COUT 


LDA ERREURS, Y 
BMI ERREUR2 
LDA $" LA 

JSR COUT 

LDA #$21 

JSR COUT 


GETRET JSR CROUT 


STA CH 

LDY  #>MESRET 
LDA  #<MESRET 
JSR STROUT 


RET1 BIT KBD 
BPL RETI 


BIT STROBE 
LDA KBD 
CMP #$D 
BEQ RET3 
CMP #$1B 
BEQ RET4 
JSR BIP 
BCS RETI 


RET3 JSR RETS5 


RET4 JSR RETS 


RETS5 LDA #20 


MESRET ASC " Lio dd 
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Appuyez sur 


<RETURN> 


#+***i 


Em mm mm 


BIP 


BIP1 


BIP2 


DECODMAC 


DECO0 


DEC1 


DEC3 


DEC2 


RESET1 


RESET3 


RESET2 


MESRES1 


#$540 


BIP2 
HP 


BIP1 


INITCOD 

#0 

(COMPTNC) ,Y 
#0 
ACCENT, X 
DEC2 


#66 

DEC1 
COMPTNC 
DECO0 
COMPTNC+1 
COMPTNC+1 
#$16 
DECO0 


ACCENT, X 
(COMPTNC) , Y 
DEC3 


utile si Apple Ilgs et 
80 colonnes réactivée. 
une page de pub... 


8 
Le 
“ 


HOME 
CLOSEFIL 


#0 
MESRES1, Y 
RESET2 

HP 


$8D 


" INTERPOMS MINITEL ViLS ON 
$8D, $8D, $8D 

" {c) Pom's & CP - 1987" 
$8D, $8D, $8D, $8D 

” Source ProCODE, mode d'emploi" 
$8D, $8D 








asc ” dans Pom's n° 28 " BPL DECONNE1 






















DFB $8D,$8D, $8D RTS 
ASC. " Revue Pom's : (1) 35 51 24 43" SDECONNE DFB 103,57,27 
DFB $8D, $8D 
ASC " " MOUTKCR JSR MOUTCR 
DFB 0 JMP  MOUTK 
Ram mm mm CDG JSR CLOSEFIL 
* MESSAGES D'ERREUR JSR DECONNE 
fmmmmmmmmm—————— JMP GETRET 
ERREURS DFB 3,8,$27,$28,S$2F,$5A,S$4E RÉ RENE SR 
ASC "Erreur d'accès disque" * CORRESPONDANCE MAC/APPLE // 
DFB 6,7,$45,$46 * QUELQUES CODES SEULEMENT 
ASC "Introuvable" RS 
DFB 4,$2B 
ASC "Disque protégé" ACCENT DFB O0," " ; pas de O0 dans fich TXT 
DFB $40,$44 DFB 136,"à" 
ASC "Nom incorrect" DFB 203,"A" ; À 
DFB 17,$48,$49 DFB 167,"S" ;: S 
ASC "Disque/directory saturé" DEB, 165, °-" * 
DFB $4E DEB 141,"ç" 
ASC "Protégé en lecture" DFB 142,"é" 
DFB $57 DEB 143,"è" 
ASC "Deux volumes homonymes" DEB 157,"0° 
DFB $7D DEB 161,°"°" 
ASC "Volume saturé" DEB 163,"#" 
DFB $7E DEB 164,"$" 
ASC "Le type "Catalogue! est interdit" DFB 144,"e° ; ê 
DFB $7F . DFB 145,"e° ; ê 
ASC "ProDOS est indispensable" DFB 148,"i" =, 
DFB 0 DEB 149,"i" M1 
ASC "Erreur ??2?" DEB 153,"0" PAP] 
DFB O0 DEB 154,"0° A | 
DEB 158,'"u" ; 0 
anne DEB 159,'°"u" ;-ü 
* INTERFACE //c DEB 206,"-" ;: Œ 
nt DEB 207,°-" ; @ 
DEB 199,162 8 » 
DEUXC LDA 4#$38 me» 200,162 2 « 
STA $47C 2EB 210,162 gs" 
LDA #$6B œB 211,162 s 
STA $47D DES 201,".° ne 
LDA 4#$81 œB 212,167 PA 
STA $47E æB 213,167 ” Ad 
LDA #$7C ED 208,°-° 
STA $42 æEB 209,°-° ÈS 
STA $3C mEB 214,"/" s + 
LDA #4 DE» 202," ; espace collant 
STA $43 
STA $3D z 
STA $3F #* STOCK 
LDA #$7E = 
STA $3E 
SEC D1 Ds 1 
JMP $C311 ; auxmove D2 _ DE : 
D3 DS 1 
A D4 | : 
* DIVERS s1 LE 22 
Re S2 ET 
SJ DS 1 
CONNECT LDY #2 PATHNAME DS 64 
CONNECTI LDA SCONNECT, Y LNGPATAN DS 1 
JSR ENVOI 
DEY 
BPL CONNECTI 
RTS 


SCONNECT DFB 104,57,27 

















RETOURN LDY #2 
RETOURNI1 LDA  SRETOURN, Y 
JSR ENVOI 
DEY 
BPL  RETOURNI 
RTS 
SRETOURN DFB 111,57,27 


DECONNE LDY #2 
DECONNE1 LDA SDECONNE, Y 
JSR ENVOI 
DEY 


C’est bien Marcel Cottini qui est l’auteur de Call- 
Rvwts, programme paru dans le numéro 26 de Pom’s et non P. 
Neveu, comme le laissait supposer la signature. Cette mauvaise 
attribution de paternité est imputable à un montage ‘rapide’. 


Rappelons que Marcel Cottini est auteur de plusieurs ouvrages 
concernant l’Apple // (éd. Sybex, P.S.L) et qu’il avait déjà signé 
des pages de Pom’s. 
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CopyBasFiles, fichiers & ‘RAM 


Vous savez que ProDOS crée au- 
tomatiquement un disque virtuel 
dans l'espace mémoire de la carte 
80 colonnes étendue, disque bap- 
tisé /RAM. Il est donc tentant d'y 
recopier, lors du ‘boot’, la majo- 
rité des programmes d'une dis- 
quette ; par la suite, en les recher- 
chant par priorité sur le disque 
virtuel, les temps de chargement 
seront extrêmement courts. 


Le programme COPYBASFILES 
crée un fichier EXEC qui recopie 
les programmes Applesoft d'une 
disquette vers le volume virtuel. 


I1 ne fonctionne, bien sûr, que 
sur //e ou //c, et se lance par un 
simple RUN. Il demande, pour 
chaque programme rencontré, si 
on désire qu'il soit recopié ou 
non. Le fichier EXEC créé 
s'appelle WORKFILE. Ainsi une 
simple instruction : 

PRINT CHRS (4) "EXEC 

WORKFILE" 


à la fin de votre programme de 
STARTUP alimentera votre dis- 
que virtuel. 


Techniquement, il ne faut cepen- 
dant pas oublier que le volume 


François Dreyfuss 


/RAM comprend moins de blocs 
disponibles qu'une disquette 
140Ko.. il sera donc parfois né- 
cessaire d'effectuer une sélection 
impitoyable des fichiers qui 
devront être copiés. La ligne 164 
de COPYBASFILES contient 
l'instruction de test sur le type de 
fichier ; modifiez-la en consé- 
quence si vous ne désirez ne 
recopier que les fichier binaires, 


par exemple. . 





Programme ERA 
‘COPYBASFILES’ 420 REM I+1 BASIC FILES 
510 IF I < O0 THEN END 

O TEXT : HOME 512 GOTO 900 
1 PRINT "CREATION FICHIER EXEC POUR COPIE ‘15 REM BUILD AN EXEC FILE USING LOAD 

DES" 520 E$ = "WORKFILE" 
2 PRINT "FICHIERS BASIC VERS DISQUE VIRTU 930 IFI> 0 THEN 532 

EL" 531 PRINT "PAS DE FICHIER": END 
3 PRINT : PRINT 532 PRINT DS;"OPEN ";ES$: PRINT D$; "CLOSE 
5 DIM L$(40) "}ES 
10 D$ = CHR$ (4) 533 PRINT D$;"DELETE ";E$ 
11 PRINT D$"PREFIX" 540 PRINT D$;"OPEN ";E$ 
12 INPUT XXS:S$ = MIDS (XX$,2,( LEN (Xx$ 550 PRINT D$;"APPEND ";E$ 

) - 2)) 560 J=I 
13 PRINT "PREFIXE ORIGINE = "XXS 565 GOTO 590 
15 MMS = "/" + S$ 570 PRINT "PREFIX,D1" 
16 PRINT "PREFIXE ARRIVEE (DEFAUT=/RAM/): 580 PRINT "PREFIX ";S$ 

" 590 FOR I=0TOJ 
17 INPUT R$: IF R$ = "" THEN R$ = "/RAM" 600 PRINT "LOAD ";MM$;L$(I) 
18 MMS = MMS + "/": IF RIGHTS (R$,1) < > 700 PRINT "SAVE "R$;L$(I) 

"/" THEN R$ = R$ + "/" 710 NEXT I 
19 PRINT : PRINT "REPONDRE <N> SI FICHIER 725 PRINT "NEW" 

INUTILE" 730 PRINT "CAT" 
80 PRINT : PRINT "LECTURE DIRECTORY "S$ 750 PRINT D$;"CLOSE ";E$ 
85 US = "/" + 5$ 800 PRINT "FICHIER ";E$;" PRET" 
86 S$ = US 810 END 
90 PRINT D$;"OPEN ";S$;" ,T15" 850 PRINT "ERREUR #" PEEK (222) 
100 PRINT D$;"READ ";S5$ 855 POKE 216,0: RESUME 
120 I=0 860 END 
130 ONERR GOTO 400 900 J= -1 
150 INPUT L$(I) 910 FORK=0TOI 
160 L$S(I) = MID$S (LS(I),2,19) 920 PRINT "RECOPIER ";L$(K); 
162 T$ = RIGHTS (L$(I),3) 930 GET Q$: IF Q$ < > "N" THEN O$ = "O" 
164 IF T$ < > "BAS" THEN 168 935 PRINT Q$ 
165 L$(I) = LEFTS (L$(I),16) 940 IF Q$ = "N" THEN 980 
167 I=1I+1 950 J=J+1 
168 REM 960 LS(J) = L$(K) 
180 GOTO 150 980 NEXT K 
400 PRINT D$; "CLOSE ";S$ 985 I=J 
405 ONERR GOTO 850 990 GOTO 515 
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Messages et Basic.System 


Jacques Rey 

































Désassemblage PRINTERR.BAS.S 
(Assembleur ProCODE) 


Le DOS 3.3 nous avait habitué à ne Me re 
beaucoup de fantaisies de .  * Désassemblage de la routine * 
structure et de nombreux ë d'affichage des messages  * 


F - : * d'erreur de Besic.system * 
‘patches’ le rendait souvent , M SU 1) dé 
incompatible avec lui-même. RAR RAR RAR ARR R RAR RRRRRRRRRAAA ER 
Avec ProDOS et BASIC. + 

SYSTEM ces petits jeux sont , org $9F88 


finis, place à la rigueur. 


a : cout = $FDED sroutine de sortie de caractères du moniteur 
Il reste tout de même un petit comptcar = $BE4B ; drapeau de comptabilisation de caractères 
point qui mérite d'être modifié dercar = $BCB6 ; drapeau indiquant la position du dernier 
sans toucher à la cohérence du ET EE sans 
N . bufimpr = $0201 sles caractères du message y sont stockés avant 
système : NOUS pouvons franciser ;l'appel de “cout”. 
les messages de BASIC. debmess = $BA13 table indiquant le début de chaque message 
SYSTEM. caract = SBA28 ;table de 30 caractères et signes constituant les mots 
messcod = $BA48 stable des messages codés 


Or, dans ce domaine aussi, les RÉ LE IS DU UINE PRINTERROR "Ah Ses uu#s 
choses ont bien changé. Dans 


DOS 3-3 il était facile de printerr ss Fe ;A contient a re se l'erreur ($02 à ne: 
. : ' ebmess,Y spointe sur le ut du message correspondant 
visualiser l'ensemble des JSR debut ;saut à la routine récupérant les caractères 


messages avec un éditeur de 
secteurs Disk Fixer, Mobby-disk **** FIN : impression et retour 
de Pom's) et de les modifier 


di t t l' fin LDX comptcar combien de caractères compte ce message ? 
iréctemen pour peu que on STX  dercar ;je range ce nombre pour plus tard 
respecte la longueur des phrases JSR return ;un CR à vide pour détacher le message 
d'origine. dong LDA  #$87 caractère BELL pour faire un peu de bruit ! 


JSR affiche 


à printcar LDX #$00 son se place au début du buffer 
Un tel examen de Basic.System Jboucle LDA bufimpr,X ;et un caractère svp ! 
ne révèle qu'un ou deux JSR affiche 
messages ; où sont donc passés Sadaquie scaractère suivant 
CPX lercar sn'est ce point le dernier ? 
les Syntax “él et autres Path De. ce OS 
Not Found . return LDA #$8D pour finir il faut un CR 
affiche JM cout sc'est par là que le tout se retrouve à l'écran 


Les concepteurs du système, 
soucieux d'économiser la place, 
ont adopté une astuce qui peut px roy  #500 


##*#* DECODE 


rendre de grands services au cLC sinitialisation C = 0 
programmeur qui doit afficher STY comptcar ;remise à zéro du compteur de caractères 
beaucou de texte : les mots sont bouciel JSR  decode ssaut à la routine qui lit la table des messages 
2 P # BNE litcar :5i le 1/2 octet n'est pas nul c'est un des 15 
codés à raison de deux caractères spremiers caractères de la table. 
par octet, chaque demi-octet JSR  decode si non on récupère le 1/2 octet suivant 
servant de pointeur de position ORA  #$10 MT © SRE “0 re l'un des 15 
RE scaractères suivants de la table. 
dans une table alphabétique. litcar TAY le résultat de ci-dessus sert de pointeur de 
stable. 
Un exemple LDA caract,Y ;et voila un caractère ! 
. SES BEQ sortie :si NUL c'est la fin du message 
Soit la table alphabétique se  1or comptear 
suivante : STA bufimpr,Y ;on range le caractère trouvé dans le tampon 


$1000 : 00 C1 C2 C5 C9 CA CC CD CE CF DO D2 D3 D9 A0 00 
caractère: AB E TT J LM NO EF R SU esp 
position “0 1:92 3 4 5 6 7 5 9 A BB C DE F 
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Et le message codé ci-dessous : 
$1100:29 85 9D BE A9 7E CF 


Chaque demi-octet donne la 
position d'un caractère ce qui 
nous donne : 


BONJOUR POM S 


Nous avons utilisé sept octets 
pour treize caractères, soit 
presque moitié moins. 

En fait, l'économie n'est pas 
toujours aussi importante pour 
deux raisons. 


D'une part, il faut terminer le 
message par un demi-octet 
pointant sur un caractère nul pour 
permettre à la routine de décodage 
de comprendre que la phrase est 
terminée (le F du dernier octet de 
l'exemple pointe sur la valeur 
00). Dans le cas d'un message 
comportant un nombre pair de 
caractères et espaces il faudra 
utiliser un octet supplémentaire. 


D'autre part un demi-octet ne peut 
adresser que quinze caractères (la 
valeur zéro est exclue, nous 
allons voir pourquoi) ce qui est 
peu pour constituer des phrases 
complexes. Ajoutons donc seize 
autres caractères à la table, 
auxquels nous accèderons de la 
façon suivante : dès que la routine 
de décodage rencontre un 
demi-octet égal à zéro, elle 
récupère le demi-octet suivant et 


BNE bouclel 
sortie RTS 


decode LDA 


«branche toujours 
retour à l'envoyeur pour affichage 


messcod,X ;récupération d'un octet représentant 2 caractères 


BCS mibas :C = 1 c'est le tour du 2 ème caractère 

BEQ  tabul sl'octet est nul le suivant est une tabulation 

LSR 

LSR 

LSR 

LSR ;pour ne conserver que la partie haute de 
sl'octet. 

SEC spositionne C pour la récupération de la partie 
basse. 

RTS 

tabul INX slecture de l'octet suivant 


LDA messcod,X ;cet octet est considéré comme une tabulation 


STA comptcar 


;:11 est placé dans "comptcar" 


INX pour lire les caractères suivants 


BNE decode 


mibas 


FRÈE 


lui ajoute la valeur $10. La valeur 


du pointeur s'étend alors de $01 à 
$16 soit 30 caractères ou signes 
(la valeur $10 est exclue) ce qui 
suffit à la majeure partie des cas. 


Dans Basic.System, nous 
trouvons en $BA28 la table de 
caractères et signes, en 
$BA4/$BB46 la table des 
messages codés et en $BA13 une 
table qui donne le début du 
message en fonction du code de 
celui-ci. 

Ces tables sont exploitées par une 
routine appelée ‘PRINTERR' 


sbranche toujours 


sprépare X pour la lecture du couple de caractères 
#50F ‘pour ne conserver que la partie basse de l'octet 
pour la lecture de l'octet suivant 


située à partir de l'adresse $9F88, 
que vous trouverez ici 
désassemblée et commentée 
(assembleur ProCODE). Il suffit 
de placer le code de l'erreur dans 
l'accumulateur et d'effectuer un 
JSR $9F88 pour afficher le 
message correspondant, les codes 
valides vont de $02 à $15, de 
plus le code $24 affiche le 


copyright Apple. 


Ces quelques éléments 
permettront à ceux qui le désirent 
de modifier ou franciser les 
messages facilement. 





Comment 
utiliser Pom’s ? 


Pour les lecteurs qui ont pour la première 
fois Pom's dans les mains, voici 
quelques éléments pour en utiliser plus 
rapidement le contenu. 


Chaque numéro de Pom's est accompagné 
de manière optionnelle d'une disquette 
regroupant tous les programmes, 
disquette disponible par correspondance. 


Si vous n'avez pas la disquette, saisissez 
les programmes Basic et sauvegardez-les 
sur une disquette DOS ou ProDOS selon 
indication dans l'article par : 

SAVE NOM_DE_PROGRAMME 

Pour saisir les récapitulations de codes 
machine (issus des sources en 
assembleur), passez en moniteur par : 
CALL -151 


puis entrez les codes ainsi : 
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2000 : A2 14 86 08 A2 60 86 09 


et non pas comme cela : 
2000- A2 14 86 08 A2 60 86 09 


Revenez alors au Basic en faisant 
CTRL-C. L'ordre de sauvegarde est 
indiqué au début de chaque récapitulation. 
À la place de la récapitulation, vous 
pouvez saisir le source en assembleur si 
vous disposez d'un programme 
assembleur (Lisa, Merlin, Procode, 
Toolkit..). Assemblez. Le code généré 
est identique à celui de la récapitulation. 


Si le programme est écrit en Pascal, 
vous devrez le saisir avec l'Éditeur Pascal 
(menu principal Pascal, demandez ‘E'). 
Compilez, puis exécutez en faisant X. 


Si vous avez la disquette Pom's 
(actuellement encore formatée en DOS 
3.3), plusieurs cas se présentent : 


Le programme fonctionne sous DOS 3.3, 
faites simplement : 

RUN PROGRAMME 

ou : 


BRUN PROGRAMME 
selon qu'il s'agit de Basic ou de 
programme en langage machine. 


S'il fonctionne sous ProDOS, 
convertissez-le à ce format en utilisant 
‘CONVERT' de la disquette Système ou 
en utilisant la disquette ‘Utilitaires 
Système’ dans l'option ‘Copier des 
fichiers’. Maintenant installé sur une 
disquette ProDOS, le programme sera 
lancé par : 

— PROGRAMME 

Si le programme est écrit en Pascal, 
vous le convertirez au format Pascal à 
l'aide de l'utilitaire ‘BASIC-PASCAL' qui 
est sur chaque disquette Pom's. Avant 
conversion, ayez une disquette formatée 
Pascal à disposition. 

Bien entendu, si vous vous heurtez à une 
difficulté dans l'exploitation des 
programmes de Pom's, n'hésitez pas à 
prendre contact avec un technicien au : 
(27 39 91,24 43 


Il n'écrira pas vos programmes, mais il 
vous dépannera. 











CLM.& HBDO 


Word est une marque déposée par Microsoft. Writer Plus est une marque déposée par A.C.I. 


Cette fois Gutenberg n 






Gutenberg et ses associés, des gens 
très perfectionnistes au demeurant, 
n’hésitant pas à regarder à la loupe le 
moindre détail, n'avaient pourtant 
fait que la moitié du travail. 

Le pouvoir de l'édition c’est bien, 
pouvoir éditer soi-même, c'est mieux. 


C’est d’ailleurs le seul moyen de 
pouvoir parvenir à la vraie liberté d'ex- 
pression. Cela Gutenberg n’y avait pas 
songé. 

En toute bonne foi, il croyait fer- 
mement dans les vertus de la vis à 
bois et d’une imprimerie pour tout le 
monde. 


Chez Apple, nous croyons aux res- 
sources de l'individu et à l'édition 
personnelle. 

Par contre pour créer son atelier, 
Macintosh a fait comme Gutenberg, il 
s’est associé avec la “LaserWriter” 
l'imprimante à laser d'Apple. A la 
seule différence que si 31 assistants 
se bousculent autour d’une presse, 

31 Macintosh reliés par AppleTalk se 
partagent aisément une Laser Writer. 


Mais, malgré son million d’octets de 
mémoire morte (extension Laser Writer 
Plus) et sa résolution de130 points/cm, 
la LaserWriter ne serait qu’une version 


Gutenberg 1395-1468 
a inventé l'imprimerie. 


légèrement améliorée de la presse en 
bois sans la puissance et les capacités 
graphiques de Macintosh Plus. 





Apple Computer France. Avenue de l'Océas 











aura pas le dernier mot. 












C'est-à-dire, un méga-octet de 
mémoire extensible à 4 méga-octets, 
un nouveau lecteur de disque interne 
double face 800K et en option un dis- 
que dur de 20 méga-octets, ce qui 
permet de stocker des milliers de 
pages de documents. 

Et comme toujours, Macintosh Plus 
met à votre disposition tous ses fameux 
outils de bureau, pour couper, coller, 
remodeler le texte, choisir les carac- 
tères, mélanger texte et dessin, etc. 


MacDraw 


Au commencement de l'édition, 
il y a l'écriture: avec des logiciels de 
traitement de texte comme MacWrite, 
Word ou Writer Plus, le vrai problème 
des auteurs c’est l'inspiration. 


Page Maker 


OR 


Z.A. de Courtabœuf, B.P 131, 91944 Les Ulis Cedex. 


Le texte si brillant soit-il ne suffit 
pas. Avec MacPaint et MacDraw pour 
illustrer, tracer des schémas et des 
dessins techniques, définir des cadres, 
avec un logiciel comme Page Maker 
pour organiser et mettre en page, vos 
rapports d'entreprise, vos formulaires, 
vos manuels, votre journal interne, 
pour ne citer qu'eux, laisseront de vous 
une excellente impression. Et vous 
pourrez toujours tout modifier, y 
compris à la dernière minute! 


MacWrite MacDraw 










& 
| 
Se 





Pour Apple, il n’y a pas de petits 
et de grands écrivains, de littérature 
de bureau et de littérature tout court : 
tout le monde est logé à la même 
enseigne, celle de la qualité. 

Avec la LaserWriter, une impression 
impeccable est à la portée de tous. 
Elle vous propose en effet onze 
familles de typographies (extension 
Laser Writer Plus), imprime sur papier, 
sur calque ou sur transparents et 
fournit des documents de qualité 
bromure. 


Laser Writer 


Et si vous voulez vraiment faire 
les choses en grand, Macintosh peut 
aussi se connecter directement à une 
photocomposeuse d'imprimerie. 


En fait, Apple ne vous offre rien 
de plus que votre imprimeur, sauf 
que vous n'aurez pratiquement plus 
besoin de lui. 

Désormais, c’est vous, l'éditeur, 
qui éprouverez la sensation de 
Gutenberg il y a 436 ans lorsqu'il 
contempla son premier document. 

C'est ainsi qu'Apple vous offre le 
meilleur de vous-même. 








Macintosh est une marque sous licence chez Apple Computer, Inc. Apple, le logo Apple, LaserWriter, Apple Talk, MacWrite et MacDraw sont des marques déposées d'Apple Computer, Inc. Page Maker est une marque déposée d'Aldus Corps. 











Record Holder 


Vendu jusqu'au 30 septembre aux 


États-Unis au prix introductif de 
$49.95, ce programme devrait au- 
jourd'hui coûter $20 ou $30 de plus, si 
la politique initiale a été maintenue. 
C'est un excellent gestionnaire de 
fichiers sans prétention, que j'ai appris à 
utiliser en moins d'une heure, aidé en 
cela par plus de 100 écrans d'assistance. 


Les types de rubriques sont : text, 
nombre, monnaie, date, calculé et 
statistique (comptage, total et 
moyenne). Champ de texte : 32Ko 
maximum par information. Nombres 
jusqu'à 18 chiffres significatifs. Nombre 
maximum de fiches : limité par le 
support magnétique (jusqu'à 16 Mo sur 
un disque dur). Importation et 
exportation avec MacWrite. La copie 
d'écran ci-contre montre bien ce que 
donne Record Holder. 


Nous avons récupéré, sans difficulté et 
en transitant par MacWrite, un fichier 
File de 270 enregistrements. Seul 
problème de transition : les virgules 
dans l'adresse (3, rue du Port) étaient 
interprétées comme des séparateurs de 
zones d'information; il a donc fallu, 
dans une seconde passe, les transformer 
en espaces, pour relire le fichier 
proprement dans Record Holder. À titre 
de comparaison, ce fichier se trie en 30 
secondes dans File, et en moins de 15 
dans Record Holder qui, par contre, ne 
fait des tris qu'en vue de l'impression ; 
heureusement, celle-ci peut être simulée 
à l'écran. 


Avantages : 


+ il est très facile de rajouter une 
rubrique ; 

+ la mise en page d'une fiche est aussi 
facile qu'avec CX Base ; 

+ on peut voir à la fois la liste des 
fiches et une fiche particulière ; 

+ possibilité de choisir la police, la 
taille et le style de toute rubrique ; 

+ les champs calculés se construisent 
très facilement ; 

+ la gestion d'index avertit des dou- 
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blons et les tolère éventuellement ; 

+ pas de protection, donc pas de 
problème avec un disque dur ; 

+ et, enfin, l'apprentissage est très 
rapide. 


Inconvénients : 

+ _ pas de tri sauf pour l'impression ; 

+ l'impression d'étiquettes par 2 ou 3 
de large n'est pas prévue ; 

+ pas d'importation d'images ; 

+ pas de décoration graphique des 
fiches. 


Conclusion 


Il y a peu de critiques à faire, en regard 
des avantages. Voilà donc un pro- 
gramme de gestion monofichier de 
grande qualité, à un rapport 
performance/prix le mettant hors 
concours. 


Software Discoveries Inc., 99 
Crestwood Road, Tolland, CT 06084, 
USA. Version US. 


A B sCenes 


Alliant graphismes et sons, ce sont 
trois programmes de niveaux différents 
pour l'apprentissage des lettres et des 
mots simples auprès des enfants, de 2 à 
4 ans selon la publicité, de 3 à 6 ans 
selon la documentation (?). Dans le 
premier jeu, une scène animée illustre 
chaque lettre de l'alphabet, mettant en 
jeu un objet ou un personnage ayant 
cette lettre pour initiale. Dans le 
second, il faut taper la première lettre du 
mot correspondant à l'image apparais- 
sant sur l'écran. Le troisième jeu 
demande la frappe du mot entier, 
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Nom de la revue 
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toujours un mot simple. 

Cette disquette est un bon exemple 
d'outil pédagogique simple et bien 
ficelé, en particulier par la variété des 
animations sur écran. À noter que la 
collection de Computeach comporte, 
pour diverses tranches d'âges et toujours 
au même prix, des disquettes 
d'arithmétique, de jeux de mots, 
d'apprentissage de signes, et même de 
création de scénario. Seule ABC 
cependant est disponible sur 
Macintosh ; certaines des autres 
n'existent que sur IBM PC. 
Computeach, 240 Bradley Street, New 
Haven, CT 06511, USA. 

Macintosh — Apple II -IBM PC 
— Prix $ 39,95. 





Les registres du +... 


.… Ou plutôt le contenu des registres du 
MC68000 qui équipe votre Macintosh 
Plus, peut être, comme la mémoire 
(voir le numéro 27 de Pom's, page 42) 
visualisé : 

° appuyer sur la 
‘INTERRUPT ; 

+ taper ‘DO’ suivie d'un retour-chariot 
— le contenu (en hexadécimal) du 
registre d'adresse DO apparaît ; 

+ même chose pour les autres registres 
de données (DO à D7), ainsi que pour 
les registre d'adresses (AO à A7, A7 
étant le pointeur de pile) ; 

+ la valeur courante du registre d'état 
peut être obtenue en tapant ‘SR’ 
(Statut Register) ; 

+ celle du compteur ordinal en tapant 
‘PC’ (Program Counter) ; 

+ _‘G?’ provoque le retour au programme 
courant. 


touche 
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InterPom’s 


Téléchargement via MINITEL 


Jean-Luc Bazanegue 


InterPom's permet la transmission de n'importe quel type de 
fichier ou application, entre deux Macintosh — ou entre un 
Macintosh et un Apple // avec le programme compatible 
proposé page 15 — en utilisant le modem incorporé au 
Minitel. Le système utilise le même câble que le programme 
du précédent numéro de Pom's permettant, entre autres, le 
stockage et la restitution des écrans du Minitel ; si vous n'avez 
pas encore réalisé ce petit montage, nous joignons à cet article 
un schéma qui vous permettra de le réaliser, le détail du 
montage se trouve aussi dans le numéro 27. Si vous ne 
trouvez pas les connecteurs nécessaires à la réalisation ou si 
votre emploi du temps ne vous permet pas de faire le montage 
vous-même, il est désormais possible de se procurer un câble 
de liaison Macintosh/Minitel directement à la revue (n'oubliez 


pas de préciser de quel type de Mac il 
s'agit !). Le Minitel utilisé doit être du 
type ‘retournable’ (il doit pouvoir 
émettre à 1200 bauds), ce qui est la cas 
pour la quasi-majorité des modèles. 


Possibilités et limites 
d'InterPom's 


InterPom's peut faire passer tous les 
types de fichiers ou applications d'un 
ordinateur à l'autre par le réseau 
téléphonique par l'intermédiaire du 
Minitel. Le programme fonctionne 
indifféremment sur tous les Macintosh : 
128Ko, 512Ko Macintosh Plus, en 
HES, en MFS, sur disquettes (même 
avec un seul lecteur) et sur disques durs. 
La taille de la mémoire vive disponible 
n'a pas d'incidence directe sur la taille 
des fichiers transférables ; il est ainsi 
possible d'envoyer ou recevoir une 
application de 3S50Ko avec un 
Macintosh 128Ko, ou encore un fichier 
de 8 Méga (par exemple) si vous 
disposez d'un disque dur. 
Les limites ne sont pas directement 
liées à InterPom's mais plutôt à son 
utilisation : 
+ grâce au type d'encodage utilisé, qui 
autorise des transmissions rapides 
pour ce type de logiciel, il faut compter 
environ quinze secondes par Ko 
transmis : le fichier de 8 Mo précitée 
occuperait tout de même la ligne 
pendant un temps certain. Ce cas 
extrême (on ne transmet pas huit 
millions de caractères tous les jours !) 
peut constituer une limite. D'un point 
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InterPom’s 





é Fier ÉSime Mode 





Fedit 3.0 


| Type APPL/FED2 

i 53Ko/53764 octets 
| créé le Mar 28 Mai 1985 
LE 


Émission du fichier 





de vue plus pratique, une application 
comme MacPaint est transmise en 12 
minutes, délai tout à fait acceptable ; 
* une autre limite — puisqu'il faut en 
trouver une autre — est le fait qu'un 
logiciel protégé le reste après 
transmission. Ainsi, s'il est possible 
d'envoyer Multiplan à un correspondant, 
le Muitiplan recréé par InterPom's se 
comportera comme une copie ‘normale’ 
du logiciel, en réclamant l'insertion de 
l'original à l'ami récepteur. Gageons que 
cette limite — qui n'en est bien sûr pas 
vraiment une — fera plaisir aux auteurs 
de logiciels. En fait, s'il arrivait que 
certaines protections ‘sautent’ du fait 
d'une transmission par InterPom's, ce 
ne serait qu'involontaire. 





Mode 


FE 4 ; 
Va GS réception æR 
ee Émission  %E 





Le programme, qui 
scrupuleusement le célèbre ‘Macintosh 
User Interface Guideline’ est d'un 
emploi aisé ; il faut cependant citer 
quelques points communs à la réception 
et l'émission. 


respecte 


Comme vous pourrez le constater, la 
fenêtre du haut est utilisée pour la 
réception, alors que celle du bas sert 
uniquement à l'émission. Ces fenêtres 
peuvent être déplacées pour, par 
exemple, rendre plus visible un 
accessoire de bureau. Pour les remettre à 
leurs places respectives instantanément, 





il suffit le faire un ‘clic’ sur lus on 
l'autre des barres de déplacement e= 
maintenant les touches ‘Option’ et 
‘Commande’ enfoncées. Ceci ne 
modifie par la sélection et l'ordre 
courant des fenêtres. 


Avant d'entreprendre une transmission 
de fichiers, il vous faudra bien sûr 
appeler votre correspondant, mais aussi 
mettre sous tension le Minitel (après on 
ne s'en occupe plus), sans avoir oublié 
la liaison Macintosh/Minitel. 


Pendant la transmission, il convient de 
ne pas raccrocher le combiné 
téléphonique, ce qui vous permettra de 
converser avec votre correspondant entre 
ou après les transmissions. 


Il y a trois solutions pour passer du 
mode Émission au mode Réception ou 
inversement : 

+ _ sélection de l'article du menu Mode ; 
+ _ Commande-E ou Commande-R ; 

+ sélection de la fenêtre par un ‘clic’. 


Réception d'un document 


La manipulation est très simple : 


+ _ vous choisissez à l'aide des boutons 

‘Lecteur’ (ou la touche ‘Tabulation’) 
et ‘Éjecter’ le volume sur lequel sera 
stocké le document à recevoir. 
InterPom's vous indique le nom du 
volume en ligne, le type de volume 
(disquette ou disque dur) et la place 
disponible, en Ko. En cas de manque de 
place généralisé sur les volumes en 
lignes, il est possible d'insérer une 
disquette vierge que le programme se 











chargera d'initialiser (après votre accord) ; 

+ prévenez votre correspondant et cliquez sur le bouton ‘Envoi 
des Blocs’. Le programme connecte le Minitel, se met en 

attente du récepteur et, dès que “l'ami du bout du fil” clique sur 


Macintosh 128 ou 512 









‘Envoi des blocs’ (il a environ une minute et demi pour le ge 
faire, après quoi la liaison est interrompue), la transmission * 
commence. F 
. DIN 180° 
Le premier bloc (chaque bloc correspond à 512 octets) est un "a 





bloc de contrôle qui contient divers paramètres parmi lesquels 
on trouve la taille du document, son nom, son type, etc. Dès 
que ce bloc est arrivé, le programme affiche le nom du fichier, 
sa taille en bloc de 512 octets et sa provenance (pour l'instant 
Macintosh ou Apple//). Si le volume en ligne n'offre pas une 
place disponible suffisante pour recevoir la totalité du 
document, InterPom's vous prévient et vous avez alors encore 
une minute et demi pour changer de volume sans que la 
transmission soit interrompue. Ce contrôle ‘a priori’ évite le 
frustrant message ‘volume saturé’ alors qu'il ne restait plus 
qu'un bloc à recevoir. ‘ 

L'application ou le document reçu sera doté des attributs qu'il a 


chez votre correspondant (type, icône, nom). Toutefois, si le RENE TERRE 2 résistances de 10 KQ, 1 de 18 
nom du document transmis est identique à celui d'un document 

















existant sur le volume récepteur, 
InterPom's ajoute automatiquement le 
suffixe ‘.A’ au nom actuel. Ainsi le 
fichier ‘File’ serait rebaptisé ‘File.A’. 
Si un fichier ‘File.A’ existait aussi, 
‘File’ serait rebaptisé ‘File.B’, et ainsi 
de suite. 


Pendant la réception 

Deux ‘échelles’ visualisent la 
transmission en cours. L'échelle 
supérieure (une simple ligne noire) 
représente le bloc de 512 octets alors 
que celle du bas, plus large indique le 
pourcentage de blocs reçus par rapport à 
la totalité. 

Il est possible, aussi bien pour 
l'émetteur que pour le récepteur, 
d'interrompre la transmission en cours 
en cliquant sur ‘Annuler’. Dans ce cas, 
le correspondant est prévenu, le Minitel 
est déconnecté et, au nom du fichier 
dont la réception était en cours est 
ajouté le suffixe ‘.INCOMPLET. 


Bien que les opérations se fassent d'une 
manière totalement automatique, des 
messages vous informent en 
permanence de l'état de la réception 
(Liaison avec l'émetteur, Attente du 
bloc N, Réception du bloc N, 
Réémission demandée, etc.). 


Réception depuis un Apple // 


Si votre correspondant est muni d'un 
Apple // et de la version adéquate 
d'InterPom's, il peut vous envoyer des 
fichiers. Deux cas peuvent se présenter : 


+ il s'agit de fichiers de texte. Dans ce 


cas certains caractères sont recodés 
(é, à, à, {, etc.), le bit de poids fort de 
chaque caractère est forcé à 0 et 
InterPom's lui donne le type 
TEXT/MACA c'est-à-dire fichier 


.texte/MacWrite. Ainsi, un double-clic 


sur le fichier créé provoquera le 
chargement de MacWrite, et le 
document sera directement exploitable ; 
+ il s'agit d'autres types de fichiers. Le 

contenu est laissé tel quel et on lui 
donne le type TEXT/EDIT, c'est-à-dire 
le type de l'éditeur utilisé avec, par 
exemple, le système de développement 
68000. Le document sera aussi 
utilisable depuis MacWrite (ou tout 
autre programme de traitement de texte) 
mais ne pourra appeler par un 
double-clic que ‘Edit’. 


Dernier petit détail : un nom de fichier 
issu d'un Apple// est toujours en 
majuscule ; ce n'est pas très joli et 
prend beaucoup de place. On remplace 
donc les caractères par des minuscules 
en laissant tels quels le premier 
caractère du nom ainsi que, bien sûr, les 
caractères spéciaux comme ‘/? 


Émission d'un document 


La partie émission du programme à de 
nombreux points communs avec la 
section précédente, la plus grosse 
différence étant qu'au lieu de choisir un 
volume pour recevoir, on sélectionne 
un fichier à émettre. Cette opération se 
fera avec le menu Fichier. 





Fichier 


(ka rente seulement. 
x rout documents. 


Ferrer 


Quitter 








L'article ‘Texte seulement...’ (ou 
Commande-T) fait apparaître la fenêtre 
de sélection standard avec seulement les 
fichiers de type TEXT. L'article ‘Tout 
documents...’ (ou Commande-O) 
autorise la sélection de n'importe quel 
type de fichier, y compris les 
applications: 

Dès qu'un fichier a été choisi, 
InterPom's affiche son nom, son type et 
son ‘créateur’ (ou APPL pour une 
application), sa taille en Ko et en octets 
ainsi que la date de sa création. 


Pour le reste, la partie émission se 
comporte de la même façon que la 
réception. 


Le menu Édition n'est pas utilisé par le 
programme ; il n'est donc valide que si 
un accessoire de bureau, qui pourrait 
utiliser ces fonctions, est sélectionné. 
Ceci est aussi valable pour l'article 
‘Fermer’ du menu ‘Fichier’. G 








Initialisations _FindWindow 





























Edition PEA —4(25) MOVE  (SP}+,D0 
_InitGraf ADD D0,D0 
Annuler initronts | MOVE  TableFenetre (D0},D0 
MOVE.L #$0000FFFF,D0 JMP TableFenet re (D0) 
_FlushEvents TableFenetre 
_InitWindows Dc Eventsuivant-TableFenetre 
InitMenus Dc BarMenu-TableFenetre 
Couper CLR.L (SP) pc fenetreSys-TableFenetre 
_InitDialogs pc Contenu-TableFenetre 
_TEInit pc DeplaceFen-TableFenetre 
Copier _InitCursor pc Contenu-TableFenetre 
CLR.B NomVolume(As} pc Eventsuivant-TableFenetre 
CLR.B NomFichier (A5) BarMenu 
CLR.B DefautEjecte (A5) SUBQ.L #4,5P 
Coller CLR.B DrChoixFichier (A5) MOVE.L EnregEvents+evtMouse {AS} ,- (SP) 
MOVE.L 4#$FFO0FFO0,DrMenuFichier (AS) _MenuSelect 
CLR.B $2r8 MOVE {SP)+,D1 
MOVE #DILoad,-(SP) MOVE {SP)+,D0 
Pack? BarMenuC 
RTS ADD D1,D1 
Menus MOVE TableMenus (D1} ,D1 
SUBQ.L #4,5P JMP TableMenus (D1) 
MOVE  fMenuPomme,- (SP) TableMenus 
Get RMenu pc Eventsuivant-TableMenus 
MOVE .L (SP) , HandleMPomme (AS} DC TraitPomme-TableMenus 
MOVE.L HandleMPomme (A5) ,-(SP} pc TraitFichier-TableMenus 
(52) pc TraitEdition-TableMenus 
r rtMenu pc TraitMode-TableMenus 
Fichier ‘interPom’s.Asm’ MOVE.L 4'DRVR',-(SP) FinMenu 
_AddResMenu CLR (92) 
INCLUDE Fichiers:InterPom’ s/1.Asm SUBQ.L #4,5P SRHHATeMent 
INCLUDE Fichiers:InterPom' s/2.Asm MOVE tMenuFichier,- (SP) BRA.S Eventsauivant 
INCLUDE Fichiers:InterPom’ s/3.Asm _GetRMenu TraitFichier 
INCLUDE Fichiers:InterPom’ s/4.Asm MOVE.L (SP},HandleMFichier (AS) ADD D0,D0 
INCLUDE Fichiers:InterPom' s/5.Asm CLR (SP) MOVE TableFichier (D0), DO 
END _InsertMenu JMP TableFichier (DO) 
SUBQ.L #4,5P TableFichier 
cd : ‘ , n MOVE #MenuEdition,- (SP) pc FinMenu-TableFichier 
Fichier InterPom sh .Asm _GetRMenu pc MmOuvrirl-TableFichier 
INCLUDE Fichiers :FSEqu.Txt MOVE.L (SP),HandleMEdition(A5) pc TmOuvrir2-TableFichier 
INCLUDE Fichiers:MacTraps .D CLR -{sP) pc FinMenu-TableFichier 
INCLUDE Fichiers:SysEqu.D _InsertMenv pc TmFermer-TableFichier 
INCLUDE Fichiers :ToolEqu.D SUBQ.L #4,SP pc FinMenu-TableFichier 
INCLUDE Fichiers:QuickEqu.D MOVE MenuMode, - (SP) pc TmQuitter-TableFichier 
INCLUDE Fichiers :PackMacs.Txt _GetRMenu Touche 
MenuPomme EQU à | MOVE.L (SP) ,EandleMMode (A5) BTST 4CndKey, EnregEvents+evtMeta (A5) 
mAPropos EQU 1 CLR (SP) BNE.S Commande 
MenuFichier EQU 2 _InsertMenu TST.B  DrBoutonLecteur (AS) 
mOuvrirl EQU 1 MOVE.L HandleMEdition(AS),-(SP) BNE.S @1l 
mOuvrir2 EQU : CLR (SP) CMPI.B #9,EnregEvents+evtMessage+3 (A5) 
mFermer EQU 4 _Disableltem BNE.S @1 
mQuitter EQU 6 _DrawMenuBar CLR.L -(5P) 
MenuEdition EQU 3 RTS BSR Boutons 
mAnnuler EQU 1 Evenements @1 BRA Event suivant 
mCouper EQU 3 TST.B DefautEjecte (A5} Commande 
sœler 0 S cr RE =(se) 
MOVEA.L defVCBPtr,A3 MOVE EnregEvents+evtMessage+2 (AS),-(SP) 
nEffacer EQU ù TST vcbDrvNum (A3} MenuKey 
pp PU ES BEQ.S @1 MOVE  (SP)+,D1 
mRacept ion EQU 1 CLR.B DefautEjecte (AS) MOVE  (SP)+,D0 
Hat s == : BSR PlusieursVolumes BRA BarMenuC 
alogAPropos 
DialogBis EQU 501 Fe rene Nsousue 
bOK EQU 1 tie tsrerait BSR SPMiseJour 
so4 EQU 1 Suso.L 22,5 BRA Eventsuivant 
EOT EQU 4 MOVE  #$OFFF,-(SP) PRE 
ACK EQU 6 PEA EnregEvents (AS) MOVEA.L EnregEvents+tevtMessage (A5) , A4 
NACK EQU 21 GetNext Event MOVE.L A4,-(SP) 
CAN EQU 25 TsT (SP)+ MOVE.L (SP),-(SP) 
CAN_U EQU 2 BEQ.S Evenements _BeginUpdate 
CAN_A EQU $ BSR.S Traitementevents SperRort 
DIF EQU 3 BEQ.S Evenements TST.L wRefCon (A4) 
CBECK EQU 7 RTS BNE.S @1 
Applell EQU 1 BSR MiseJour 1 
DebutBloc EQU 0 ee eee à BRA.S 02 
NumBloc EQU 1 ns is vent s+evtNum (AS) , DO e1 BSR MiseJour2 
NotNumBloc EQU 2 4 @2 MOVE.L A4,-(SP) 
MOVE TableEvenement s (DO) , DO 
TypeEmetteur EQU 4 _EndUpdate 
TypeTexteMac EQU 5 JMP TableEvenements (DO) RTS 
WBlocsData EQU 6 TableEvenements Hana 
MR TE nos EG x pc Eventsuivant-TableEvenements HOVE.L AM,=(32) 
NBlocsTotal EQU 10 po Se er DrauControls 
TypeïexteApple  EQU pc Eventsuivant-TableEvenements - 
PP pc Touche-TableEvenements BR AfficheContenuFR 
RPronvRe Qu . oc Eventsuivant-TabloEvenoment s Me 
Longlog_Apple  EQU 36 
NonFichierApple 206 100 pc Touche-TableEvenements MiseJour2 
bats 2QU 164 pc MiseJour-TableEvenements MOVE.L A4,-(SP) 
Roues EQU 250 pc Lisquette-TableEvenements _DrawControls 
pc Active-TableEvenements BSR ContenuCommun 
LongueurBloc EQU 512 
TéngueurBlecc. | EOU 683 pc Eventsuivant-TableEvenements MOVEA.L (AS) ,A0 
NombreMaxEssai  EQU 10 pc Eventsuivant-TableEvenements PEA gray (A0) 
SixFaibles EQU s3r DC Eventsuivant-TableË£venements _PenPat 
DeuxFrorts EQU $co Eventsuivant MOVE.L #$00300010,-(SP} 
MOVEQ #0,D0 _HoveTo 
BSR.S Initialisations RTS MOVE.L #5003000B7,-{(SP} 
BSR.S Menus Souris _LineTo | 
BSR CuvreSerie PenNormal 
BSR CuvertureF Li RU MOVE.L #$00180010,-(SP) 
BRA RRCAREE AS MOVE.L EnregEventstevtMouse (A5},-(5P) 5 ci 
MoveTo 
PEA EnregEvent s+evtMeta+2(AS) = 
PEA ChaineËmissionl 
à _DrawString 
Fichier ‘InterPom’s.Job’ MOVE.L #$00480010,- (SP) 
_HoveTe 
VDS: ASM Fichiers:InterPom’ s.Asm MDS:Exec MDS:Edit PER ChaineEnission2 
VDS: LINK Fichiers:InterPom’s.Link MODS: Exec MDS:Edit =DransE ing 
HDS : RMAKER Fichiers:InterPom’ s.R MDS:Finder MDS:Edit MOVE.L #$00680010,-(3P) 
MoveTo 
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PEA ChaineEmissions 


_DrawString 
MOVE.L #$001800D0,-(SP}) 
_HoveTo 
PEA ChaineEtatE 
_DrawString 
Î TST.B NomFichier {AS} 

BEQ.S ei 
BSR AfficheContenuF2 

@1 RTS 

Disquette 
MOVE EnregEvents+tevtMessage+2(AS},D5 
TST EnregEvents+evtMessage (AS) 
BEQ.S 63 


SUBQ.L #2,5P 
MOVE.L 4#$640064,-(SP) 


MOVE.L EnregEvents+evtMessage (AS) ,-(SP) 
MOVE #D1BadMount,-{(SP) 
_Pack?2 
TST {SP)+ 
BNE.S @4 
@3 MOVE.L vcbQfdr+2,A3 
e2 cm vebDrvNum{A3),DS 
| BEQ.S @1 
MOVE.L (A3),A3 
| BRA.S @2 
@1 BSR PlusieursVolumes 
BNE.S es 
BSR PasVolume 
BRA.S @4 
@5 BSR VolumesSuivant2 
BSR A£FNom 
@4 BRA Eventsuivant 
Active 


MOVEA.L EnregEvent s+evtMessage (AS) , A4 
CMPI tuserKind,windowKind (A4) 

BNE Event suivant 

MOVE EnregEvents+evtMeta(AS),D7 
BTST #ActiveFlag, DT 

BEQ.S DeActiver 

MOVE.L A4,-(SP) 


_SetPort 

DeActiver 
BSR ValideMenus 
BRA Eventsuivant 

fenetresys 
PEA EnregEvents (AS) 
MOVE.L EnregEvents+evtMeta+2 (AS) ,-(5P) 
_SystemClick 

| BRA Event suivant 
DeplaceFen 


el 





MOVE EnregEvent s+tevtMeta (A5), DO 
ANDI #2048+256,D0 

CMPI +2048+256,D0 

BNE.S el 

SUBQ.L #4,5P 

_FrontWindow à 
MOVE.L  (SP}+,D3 

MOVE.L PointeurFenetrel (AS),-(SP) 
LEA RectFenetrel,A3 

MOVE.L (A3),-(5P) 

CMP.L PointeurFenetrel (A5) ,D3 
SEQ —{sP) 

_HoveWindow 

MOVE.L PointourFenetre2(AS),-(SP) 
MOVE.L 8(A3),-(SP) 

CMP.L PointeurFenetre2 (A5) ,03 


SEQ —{sP) 
_HoveWindow 
BRA.S e2 


MOVE.L EnregEvents+evtMeta+2 (AS), A4 
MOVE.L A4,-(SP) 
MOVE.L EnregEvents+evtMouse (AS) ,-(SP) 


PEA Rectanglelimite 
[ _DragWindow 
TST.L wRefCon (A4) 
BNE.S e3 
BSR MarqueMode! 
BRA.S e2 
| @3 BSR MarqueMode2 
F @2 BRA Eventsuivant 
Contenu 


e3 


el 


D 


SUBQ.L 4#4,5P 

_FrontWindow 

MOVE.L (SP)+,D0 

MOVEA.L EnregEvents+evtMeta+2 (A5), A4 
CMP.L A4,D0 

BEQ.S el 

MOVE.L A4,-(SP) 

_SelectWindow 

MOVE.L wRefCon(A4),D0 

BNE,S 03 

BSR Mar queMode 

BRA.S e2 

BSR MarqueMode? 

BRA.S e2 

MOVE.L A4,-(5P) 

_SetPort 

PEA EnregEvents+EvtMouse (AS} 
_GlobalToLocal 

SUBQ.L #2,5P 

MOVE.L EnregEvents+EvtMouse (AS),-{(SP) 
MOVE.L A4,-(5P) 


PEA HandleCont role {AS} 
_FindControl 
TST (SP)+ 


BEQ.S @2 


SUBQ.L #2,SP 

MOVE.L HandleControle(AS},-(SP) 
MOVE.L EnregEvents+EvtMouse (AS),-(SP) 
CLR.L —(SP} 


_TrackControl 
TST (SP)+ 
BEQ.S e2 


SUBQ.L #4,SP 
MOVE.L HandleControle(AS),-(S?) 


_GetCRefCon 

BSR Boutons 
02 BRA Eventsuivant 
TraitPomme 


CMPI1 tAPropos,D0 
BEQ.S TraiteAPropos 
MOVE.L EandleMPomme (AS) ,-(5SP}) 
MOVE D0,-(SP) 

PEA NomAccessoire (AS) 
_Getlten 

SUBQ.L #2,5P 

PEA NomAccessoire (AS) 
_©penDeskAcc 

ADCQ 42,5P 

BRA FinMenu 


TraiteAPropos 
CLR.L -(SP) 
MOVE #DialogAPropos,-(SP) 
PEA Dialogue (AS) 
MOVE.L #-1,-(SP) 
_GetNewDialog 
MOVE.L (SP),-(SP) 
_SetPort 
Attente 
CLR.L -(SP) 
PEA Article {AS} 
_ModalDialog 
_CloseDialog 
SUBQ.L #4,5P 
_FrontWindow 
MOVE.L  (SP)+,A4 
CMPI tuserKind,windowKind (A4) 
@1 BNE FinMenu 
MOVE.L A4,-(SP) 
MOVE.L (SP),-{(SP) 


_SelectWindow 

_SetPort 

BRA.S ei 
TraitEdition 

BSR.S VersSystone 

BRA FinMenu 
VersSysteme 

MOVE D0,D7 

CLR (sp) 


MOVE Do,-(SP) 
suBQ #1, (SP) 
_SysEdit 
MOVE.B (SP)+,D1 
RTS 

TraitMode 
SUBQ #1,D0 
BNE.S Mode2 
MOVE.L PointeurFenetrel (A5) ,-(5P) 
_Select#indow 
BSR MarqueMode] 
BRA.S- FinTraitMode 


Mode2 
MOVE.L PointeurFenetrez2(AS}),-(SP) 
_SelectWindow 
BSR MarqueMoie2 
FinTraitMode 
BRA FinMenu 
TmOuvrirl 
LEA TypeTEXT, Al 


MOVE.L Al,D0 

MOVEQ 1,01 

BRA MmOuvrir 
TmOuvrir2 

MOVEQ #,00 

MOVEQ +-1,D1 


MOVE.L 4#$640064,-(SP) 
CLR.L -(SP) 

CLR.L -(SP) 

MOVE D1,-(SP) 
MOVE.L DO0,-(SP) 
CLR.L -(SP) 


PEA ReponseGet File (AS) 

MOVE tSFGetFile,-(5P) 

_Fack3 

TST ReponseGetFile+rGood (AS) 
BEQ FinMenu 

LEA Tampon1O(AS), A0 

LEA ReponseGetFile+rName (AS) , A1 


MOVE.L Al,ioFileName (A0) 
MOVE ReponseGetFile+rVolume (AS), 


10VReFNum (A0) 

CLR 1oFDirindex (A0) 
CLR.B ioFileType (A0) 
_GetFilelnfo 
BEQ.S e7 
CLR (SP) 

211 BSsR Erreur 
BRA FinMenu 


47 LEA TamponlO(AS}, A0 
TST.B ioFlAttr 4b (A0) 
BGE.S e1o 


MOVE #1,-(5P) 
BRA.S e11 

@10 MOVEQ  40,D0 
MOVE.B ReponseGetFile+rName (AS) ,DO 
ADDQ #1,D0 
LEA ReponseGetFile+rName (A5), AO 
LEA NomFichier (AS), A1 
_BlockMove 
CLR (SP) 
PEA NomFichier (A5) 
_StringWidth 
CMPI 1168, (SP)+ 
BLT.S 02 
MOVEQ  #0,D4 
LEA NomFichier (A5) , A4 
MOVE.B  (A4),D4 

@3 MOVE.B #'.',0(A4,D4) 
CLR (SP) 
PEA NomFichier (AS) 
_StringWidth 
CMP1 168, (SP)+ 
BLT.S e2 
SUBQ.B #1, (A4) 
SUBQ #1,D4 
BRA.S 03 

@2 LEA Tampon1O(AS}), A0 
LEA TamponTemporaire (A5} ,A1 
MOVEQ #ioF@ŒlSize, DO 
_BlockMove 
LEA TamponIO(AS}, A0 
MOVE.L oFlRLgLen (A0) ,D0 
ADD.L £oFlLgLen (A0), DO 
MOVE.L D0,D5 
LEA NombreOctets (AS), A0 
CLR (SP) 
_Pack7 
MOVE.L D5,D0 
LEA ChaineEmission4, A0 
CMPI.L #1,D5 
BGT.S @4 
MOVE.B #6, (A0) 
BRA.S @5 

@4 MOVE.B #7, (A0) 

@5 MOVE #1024,D1 
DIVU D1,D0 
SwAP po 
TST po 
BEQ.S es 
SWAP po 
ADDQ #1,00 
BRA.S 1 

@9 SwAP Do 

@1 ANDI.L #$FFFF,D0 
LEA NombreKoEnvoi (AS), A0 
CLR (SP) 
_Pack7 
MOVE.L TamponiO+ioFlUsrWds+fdType{A5), 

TypeFichier+2 (AS) 
MOVE.L Tampon1O+ioFlUsrWds+fdCreator (A5), 
CreateurFichier+2(A5) 

MOVE.B #4,TypeFichier+1 (AS) 
MOVE.B #4,CreateurFichier+1{A5) 
MOVE.L TamponiO4ioF1CrDat (A5) ,-(5P) 
MOVE.B dabbrevDate,-(SP} 
PEA ChaineDate {AS} 
MOVE #1UDateString,- (SP) 
_Jack6 
PEA SauvePort (AS) 
_GetPort 
MOVE.L PointeurFenetre2 (A5},-{(5P) 
_setPort 
PEA RectangleEffaceFichier 
_Erasekect 
PEA RectangleEffacelnfol 
_Erasekhect 
PEA RectangleEffacelnfo2 
_ErasekRect 
PEA RectangleEffacelnfo3 
_EraseRect 
BSR AfficheContenuF2 
TST.B DrChoixFichier (A5) 
BNE.S 88 
sT DrChoixFichier (AS) 
MOVE.L HandleControlelF2(A5),-(SP) 
CLR (SP) 
_HiliteControl 

@8 MOVE.L SauvePort (AS) ,-(SP) 
_SetPort 
BRA FinMenu 

TnFermer 
SUBQ.L #4,5P 
_FrontWindow 


MOVEA.L (SP)+,A4 


MOVE windowKind (A4) ,-(SP) 
_CloseDeskAce 
BRA FinMenu 
TnQuitter 
MOVE *-1,D0 
RATS 
OuvertureF 
BSR Montre 
SUBQ.L #4,5P 
CLR.L (SP) 
PEA RectFenetre2 
PEA Titre2 
MOVE.B #1,-(SP) 
MOVE #*documentProc,-(SP} 
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Newkindow _SetPort MOVEQ  #0,D5 
MOVEA.L (SP),A4 TST.B NomVolune (AS) MOVE.L vebQEdr+2,Al 
_SetPort BEQ.S O@1 BRA.S 4 
MOVE tsysFont,-(SP) PEA RectangleEfface @2 MOVEA.L (Al),Al 
_TextFont _EraseRect @4 MOVE.L A1l,D1 
MOVE #12,-(SP) MOVE.L #$00280010,-({SP)} BEQ.S ei 
_TextSize _HoveTo 737 vebDrvNum (Al} 
SUBQ.L #4,SP PEA NomVolume (A5) BEQ.S @2 
MOVE.L A4,-(SP) _DrawString @3 ADDQ #1,05 
PEA RectangleBouton3 MOVE.L #$00380010,-(SP) BRA.S @2 
PEA TitreBoutonlF2 _MoveTo @1 MOVE.L BHandleControlel(As},-(SP) 
MOVE.B #1,-(SP) MOVE #" (",-(SP) CMPI +2,05 
CLR.L —(SP) _DrawChar SMI D4 
CLR.L -(SP) PEA Nombrek (AS} MOVE.B Dé,DrBoutonLecteur (AS) 
MOVEQ #3,00 _DrawsString MOVE D4,-(5P) 
MOVE.L DO,-(SP) PEA ChaineRecept 1on2 _EiliteControl 
_NewControl _DrawString TST Ds 
MOVE.L (SP) ,HandleControlelF2 (A5} BSR AfficheDriver UNLK A6 
MOVE t-1,-(SP) TST.B DrapeauVV(AS} RTS 
_HiliteControl BEQ.S @1 VolumeSuivant2 
MOVE.L A4,PointeurFenetre2(AS) MOVEA.L (A5) ,A0 LINK A6,40 
PEA gray (A0) BRA.S ES 
Le LE —JenPat Volumesuivant 
SE MOVE  bnotPatBic,-(SP) LINK A6,40 
PEA RectFenetrel PenMode MOVE.L vebQHdr+2, A3 
PEA Titre] PEA Rectanglelcone TST.B NomVolume (A5) 
MOVE.B #l,-(SP) _painthact RER 
MOVE #docusentProc,-(SP) PEA RectangleEfface MOVE VolumeCourant (AS) , DO 
nd Er _PaintRect e7 cm vcbVRe fNun (A3) , DO 
MOVE.L DO,-{SP) PenNormal BEQ.S @6 
ns muet MOVE.L SauvePort (AS),-(SP) MOVE.L (A3) ,A3 
CLR:L, (82) _SetPort MOVE.L A3,D1 
_Newhindow e1 RTS DE: a7 
VONRASE) (SP) PAU AfficheDriver MOVE.L  vebQHdr+2,A3 
ÉRArROEE Tampon SET -bitmaprec BRA.S @e7 
MOVE #sysront,-(5P) LINK A6, #Tampon 86 MOVE.L (A3),A3 
_Tentront MOVEM.L A0-A4/D0-D2,-(SP) MOVE.L ÀA3,D1 
NONS.. etar (0e) SUBQ.L 4#4,5P BNE.S Qi 
LTentS Le) MOVE  DriverCourant (AS),-(SP) MOVE.L vebgädr42, A3 
Le _GetIcon e1 TsT vebDrvNum (A3) 
MOVE: LME (88) MOVEA.L (SP) +, A0 BNE.S 8 
PEA RectangleBoutonl MOVE.L (A0),Tampon+baseAdär (A6) rsT vebDRe fNum (A3) 
PER Titreboutonl MOVE #4, Tampon+rowBytes (A6) BLE.S  @8 
MOVE.B #1,-(SP) CLR.L Tampon+bounds (A6) MOVE vebVRe fNum (A3) , DO 
CLA.L  -(5r) MOVE.L  #$200020, Tampon+bounds+#bottom (A6) TST.B NonVolune (AS) 
CLR.L (SP) PEA Tampon+baseAddr (A6) BNE.S @7 
CLR: (sr) MOVEA.L PointeurFenetrel (AS), A0 PEA Rectangleïcone 
_Newcontrol ADDQ.L #2,A0 ere 
MOVE.L (SP), HandleControlel (A5) MOVE.L A0,-(SP) ES RoctangleEfface 
NOVE.L AM,- (8?) PEA Tampon+bounds (A6) £Érasekect 
PEA RectangleBouton2 PEA Rectanglelcone Unix A6 
PEA TitreBouton2 CLR = ($2) RTS 
MOVE.B #1,-(SP) CLR.L  -(SP) ee 
CLR.L  -(SP) _CopyBits E8 MOVE  vebVRefNum (A3), VolumeCourant (A5) 
CLR.L -(8P) MOVEM.L (SP) +, A0-A4/D0-D2 MOVEQ 40,00 
MOVEQ  #1,D0 UNLK A6 MOVE.B  vebVN (A3) ,DO 
rs Le RTS ADDQ  #1,D0 
e! intro 
MOVE.L  (SP)+, HandleControle? (A5) res. ee e Rent 
SUBQ.L #4,5SP RE, 10 (A6) ,D0 _BlockMove 
ER ADD D0,D0 CLR (SP) 
1e eng enone ne MOVE  TableBoutons (DO), DO PEA NomVolume (AS) 
Te Hséreenes JMP TableBoutons (DO) _StringWidth 
me ES TableBoutons CHPI 4168, (SP)+ 
CLR.L  -(S5P) pc BoutonLecteur-TableBoutons BLT.S @2 
MOVEQ +2,00 Dc BoutonEjecter-TableBoutons MOVEQ #0,D4 
MOVE.L DO0,-(SP) pc BoutonAttente-TableBoutons LEA NomVolume (AS), A4 
NewControl pc BoutonEnvoi-TableBoutons MOVE.B (A4) ,D4 
MOVE.L  (SP)+, HandleControle3 {AS} D HR PUSERS ME PA 
MOVE.L A4,PointeurFenetrel (A5) SE Rice EE ue. 
BSR PlusieursVclumes BRAS Er StringMidth 
LS Re BoutonEjecter CHP1 4168, (SP)+ 
BRAS  €2 MOVE VolumeCourant ed La BLT.S “ 
Tampon 10+10VRe fNum SUBQ.B #1,(A4) 
D CLR.L  TamponlO+ioCompletion(AS)} suzQ +1,04 
Rrs CLR.L Tampon 1O+1oVNPtr (AS) BRA.S e3 
LEA TamponlO(AS), A0 @2 MOVE.L vebAlBlksiz{A3),D0 
Montre Eject MOVE vcbFreeBks (A3) ,D1 
SUBQ.L 4#4,5P BEQ.S € MOVEQ 49,02 
MOVE #watchCursor,- (SP) CLR (se) LSR.L D2,D0 
_Setcurser BSR Erreur MULU  D1,D0 
HOVER.L (SP) +, A0 BRA.S  SortieBoutons LSR.L #1,D0 
MOVE.L (A0),-(SP) qi BsR PlusieursVolumes MOVE.L D0,NombrekKONum {AS} 
_Setcursor BNE.S @3 LEA ChaineReception2, Al 
RTS BSR PasVolume CAPI 1,00 
AfficheContenuFR BRA.S ETQ2 SMI PasDeP lace (A5) 
BSR ContenuCommun 03 BSR VolumeSuivant BGT.S  @4 
MOVEA.L (AS),A0 BSR AffNom MOVE.B 4#9,(Al) 
PEA gray (A0) ETO?2 MOVE.B #')',9{A1) 
_Penpat MOVEA.L defVCBPtr,Al BRA.S @5 
MOVE.L  #$00400010,-(SP) TsT vebDrvNum (A1) @4 MOVE.B #10, (Al) 
_MHoveTo SEQ DefautEjecte (AS) MOVE.B 4#'s',9(A1) 
MOVE.L #$00400087,-(SP} SEM ons @s LEA Nombrex (AS} , A0 
_LineTo UNLX A6 CLR (82) 
_PenNormal MOVE.L (SP)+, (SP) _Pack7 
MOVE.L 4500180010, (SP) RTS MOVE  vebAtrb(A3},D0 
_MoveTo BoutenAttente ANDI #58080,D0 
PEA ChaineRecept ion! BSR Reception SNE Drapeauvv(As) 
_DrawString BoutonAttente2 BSR ChercheDriver 
MOVE.L  #5001800D0,- (SP) MOVEQ  42,D0 MOVE.L HandleControle2(AS),-(SP) 
_MoveTo flush£vents CMP1.B #8,-3(A3) 
PER ChaineEtatR BRA.S SortieBoutons SEQ D3 
_DrawString BoutonEnvoi MOVE D3,-(SP) 








BSR Emission 


CLR.L (SP) A£fNom 
CLR (SP) PEA SauvePort (AS} BRA.S BoutonAttente2 
MOVEQ #1,D0 _GetPort PlusieursVolumes 


MOVE.L DO,-(SP} 
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MOVE.L PointeurFenetrel (AS},-(SP} 


LINX A6,40 





45 








_BiliteControl 

MOVE.L HandleControle3{(A5),-(SP) 
MOVE.B DrapeauVY(AS}, DO 

CR.B PasDePlace (A5) , DO 


EXT Do 

MOVE DO,-(SP) 
_BiliteControl 

TST.B D3 

BNE.S @6 

MOVE 4267,DriverCourant (AS) 
BRA.S e7 


@6 MOVE #268 ,DriverCourant (A5) 
@7 UNLK A6 
RTS 


ChercheDriver 
MOVE vebDrvNum (A3), DO 
MOVEA.L drvOEdr+2,A3 

e2 CMP dQDr ive (A3) , DO 
BNE.S el 
RTS 

@1 MOVEA.L qLink (A3) ,A3 
MOVE.L A3,D1 


BNE,S e2 
RTS 

PasVolume 
PEA Rectanglelcone 
_EraseRect 
PEA RectangleEfface 
_EraseRect 


MOVE.L HandleControle2{(AS),-(SP) 
MOVE *-1,-(5P) 

_HiliteControl 

CLR.B NomVolume (AS) 

RTS 


ValideMenus 

SUBQ.L #4,5P 

_FrontWindow 

MOVEA.L (SP)+,A4 

MOVEQ 0,05 

CMP 4UserKind,windowK{nd (A4) 

BNE.S FenetreAccessoire 

TST.B DrMenuFichier (A5) 
BNE.S @1l 
sT 
MOVE. 
MOVE 


= 


DrMenuFichier (A5) 
BandleMFichier (AS),-(SP) 
#mOuvrirl,-(sP) 
| _Enableltem 
MOVE.L HandleMFichier (AS5),-(5SP) 
MOVE AnOuvrir2,-(sSP) 
_Enableltem 
MOVE.L HandleMFichier (A5),-(SP) 
MOVE imFermer,-(SP) 
_Disableltem 
ADDQ #1,D5 
@1 TST.B  DrMenuEdition(ASs) 


| BEQ.S 02 

sF DrMenuEdit ion (AS) 
| MOVE.L HandleMEdition(AS},-(SP) 
| CLR -(sP) 
| _Disablelten 
| ADDQ  #1,05 
| 02 TST.B DrMenuMode (AS) 
Î BNE.S e3 

ST DrMenuMode (A5) 

MOVE.L HandleMMode (AS),-(SP) 

CLR (SP) 

_Enableltem 

ADDQ #1,D5 
| e3 TsT Ds 

BEQ @4 

_DrawMenuBar 

@4 RTS 
FenetreAccessoire 

TST.B  DrMenuFichier (AS) 
l BEQ.S @1 

sr DrMenuFichier (AS) 


MOVE.L HandleMFichier (AS),-(5P) 
MOVE tmOuvrirl,-(sP) 
_Disableltem 
MOVE.L HandileMFichier (AS),-(SP) 
MOVE t=Ouvrir2,-(SP) 
_Disableltem 
MOVE.L HandleMFichier (AS),-(SP) 
MOVE imFermer,- (SP) 
_Enableltes 
ADDQ #1,05 

@1 TST.B DrMenuEdition(As} 


BNE.S e2 
st DrMenuEdit ion (AS) 
! MOVE.L HandleMEdition(AS),-(5SP} 
CLR (SP) 
_Enableltem 
ADDQ ‘1,05 
| @2 TST.B DrMenuMode (A5) 


BEQ.S 03 
| sr DrMenuMode (AS) 
MOVE.L HandleMMode(AS),-(5SP) 
CLR -(sP) 
_Disablelten 
ADDQ “1,05 
| e3 7sT ps 
d BEQ e4 
_DrawMenuBar 
@4 RTS 
MarqueMode 1 


MOVE.L HandleMMode{(AS),-(5P) 
MOVE imReception,-(SP) 


MOVE.B #255,-(S?) 
_CheckIten 
MOVE.L BandleMMode (AS}),-(SP} 
MOVE #mEnvoi,-(5SP) 
CLR (SP) 
_Checkiten 
RTS 

MarqueMode2 
MOVE.L EandleMMode(AS),-(5P) 
MOVE fmReception,-(SP) 
CLR (SP) 
_Check Item 
MOVE.L EandleMMode (AS),-(SP) 
MOVE #mEnvoi,-(SP) 
MOVE.B #255,-(SP) 
_Checklten 
RTS 

ContenuCommun 
MOVEA.L (AS),A0 
PEA gray (A0) 
_PenPat 
PEA RectangleVolume 
_FraneRect 
PEA RectangleStatus, 
_Framerect 
MOVE.L #$006E00C8,-(5P) 
_MoveTo 
MOVE.L #$006E01CD,-(SP) 
_LineTo 
MOVE.L #$002000D0,-(SP) 
_MHoveTo 
MOVE.L #$002001C6,-(SP) 
_LineTo 
_PenNormal 
PEA RectangleNiveau 
_FrameRect 
MOVE.L #$0059014D,-(5P) 
_MoveTo 
MOVE.L #$0061014D,-(SP) 
_LineTo 
MOVE.L #$005901CD,-(SP) 
_HoveTo 
MOVE.L #$006101CD,-(SP) 
_LineTo 
MOVE.L #$0063014D,-(SP) 
_MoveTo 
MOVE.L #$006301CD,-(SP) 
_LineTo 
MOVE monaco, -(SP) 
_TextFont 
MOVE +9,-(5P) 
_TextSire 
MOVE.L 4#$0060014F,-(SP) 
MoveTo 
PEA ChaineZero 
_DrawString 
MOVE.L #$006001B5,-(SP) 
_MoveTo 
PEA ChaineCent 
_DrawString 
MOVE tsysFont,-(SP) 
_TextFont 
MOVE #12,-(5P) 
_TextSire 
RTS 


AfficheContenuF2 
MOVE.L #$00280010,-{(SP) 
_MoveTo 
PEA NomFichier (AS) 
_DrawString 


MOVE.L #$00480010,-(SP) 
_MoveTo 

PEA ChaineEmission2 
_DrawString 

PEA TypeFichier+1 (AS) 
_DrawString 

MOVE +" /',-(5P) 
_DrawChar 

PEA CreateurFichier+1 (AS) 
_DrawString 

MOVE.L #$00580010,-(SP) 
_HoveTe 

PEA NombreKoENvoi (AS) 
_DrawString 

PEA ChaineEmission3 
_DrawString 

PEA NombreOctets (AS) 
_DrawString 

PEA ChaineEmission4 
_DrawString 

MOVE.L #$00680040,-(5P) 
_MoveTo 

PEA ChaineDate (AS) 
_DrawString 

RATS 


OuvreSerie 
PEA Tampon IOSort (AS) 
PEA Sort 
BSR Ouvres 
PEA Tampon1OEntre (AS) 
PEA Entre 
BSR Ouvres 
RTS 
Ouvres 
LINK A6,40 
MOVEA.L 12 (A6) ,A4 
MOVEA.L A4,A0 


MOVE.L 8(A6}),1oFileName (A0) 
CLR.B ioPermssn(A0) 


_Open 
BNE.S @1 
MOVEA.L A4,A0 


MOVE #8,csCode (A0) 
MOVE #94+1024+16384+12288, csParam (AO) 


_Control, Immed 
BNE.S @1 
MOVE.L #800,D0 
_NewPtr, clear 
BNE.S ei 
MOVE.L A0,A1 
MOVEA.L A4,A0 


MOVE #9, csCode (A0) 
MOVE.L Al,csParan (AO) 


MOVE 800, csParam+4 (AO) 


_Control, Immed 


BEQ.S e2 

@1 MOVE #2,-(5P) 
BSR Erreur 
_ExitToShell 


@2 UNLK A6 
MOVE.L (SP),8(SP) 
ADDQ.L #8,5P 
RTS 

RectFenetrel 

RectFenetre2 

Rectanglelinite 

RectangleVolume 

RectangleBoutonl 

RectangleBouton2 

RectangleBouton3 

Rectanglelcone 

RectangleEfface 

RectangleStatus 

RectangleEffaceFichier 

RectangleEffacelnfol 

RectangleEffacelnfo2 

RectangleEffacelnfo3 

Titrel 

Titre2 

ChaineRecept ion] 


ChaineRecept ion2 
ChaineEmissionl 


ChaineEmission2 
ChaineEmission3 
ChaineEmissiond 
ChaineEmissions 
ChaineEtatR 


ChaineEtatE 


ChaineZero 
ChaineCent 
TitreBoutonl 
TitreBouton2 
TitreBouton3 


TitreBouton1F2 


TitreBoutonAnnuler 
TypeTEXT 
CreateurWrite 
CreateurEdit 
Createur 
Dialogue 
NomAccessoire 
EnregEvents 
HandleMPomme 
HandleMFichier 
BandleMEdit ion 
BandleMMode 
Article 
SauvePort 
PointeurFenetrel 
PointeurFenetre2 
DriverCourant 
BandleCont role 
BandleControlel 
BandleCont role2 
BandleControle3 
BandleControlelr2 
NomVolume 
NomFichier 
NomFichierRecu 
NomFichierModi f 
Nombre 
VolumeCourant 
Drapeauvv 
DefautEjecte 
Tampon 10 
TamponTemporaire 
TamponTemporaireF 
DrMenuFichier 
DrMenuEdition 
DrMenuMode 
DrBoutonLecteur 
PasDeP lace 
DrChoixFichier 
ReponseGet File 
NombreKoEnvoi 
CreateurFichier 
NombreOctet s 
TypeFichier 
ChaineDate 


BRBREREEER R RRRKE ER RRRBR RE RRRRERRRRRRERERER 
œ © & Et & Ww ù 


CAPE AE 


09vvuu 
ù à à à & 
QG 


re 


DS.B 
DSs.B 
Ds.B 
Ds.B 
Ds.B 
Ds.B 
Ds.B 
Ds.B 
Ds.B 
Ds.B 
Ds.B 
Ds.B 


50,8,169,478 
200,8,319,478 
28,4,338,508 
8,8,111,191 
710,56,88,184 
89,56,107,184 
89,200,107,328 
72,16,104,48 
29,16,58,184 
8,200,78,462 
27,16,43,189 
61,48,77,189 
77,16,93,189 
93,64,109,189 

9, ‘Réception’ 

8, ‘Émission’ ,0 
23, Réception 
sur le volume 
10,'ko libres)',0 
19, "Émission du 
fichier" 

5, "Type ‘ 
3,'ko/" 

1,' octets" 

8, 'créé le ‘,0 
20,'État de la 
réception" 
18,'ftat de 1° 
‘énission',0 
2,'0%',0 
4,'100%°,0 
7,'Lecteur' 
7,'Ejecter' 
17, 'Attente des 
blocs' 
15,'Envoi des 
blocs" 
7,'Annuler" 
EXT" 

*MACA' 








1oFQ@ElSite 
10F0E1Size 
1oFQE Site 
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e20 


BSR AttenteLiaisonEmetteur 
TST Code (AS) 

BEQ.S e2 

BSR GetTimer 


MOVE Code (AS), D0 
C#PI #508,D0 












Entre DC.B 4,'.AIn",0 BNE.S 4 
Sert DC.B 5,'.AOut" BSR AnnulationAbandon 
TamponlOEntre DS.B 10FQElSire BRA FinReception 
TamponlOSort DS.B 10F@E1Size @4 BSR CodeDifferent 
TamponSortie Ds.B 700 BRA.S ei 
TasponEntre DS. 709 LectureBlocControle 
RectEffMessl DC 36,208, 60, 456 BSR BlocControle 
RectEffMess2 nc 60,208,76,456 MOVE Code{AS),D0 
RectEffMess12 nc 36,208,76,456 APO:S - Cortennfinnder 
ras pe ; CMPI 4CAN_A,D0 
NombreOctets 10 Ds.L 1 BNE.S @ 
Nonsrenles bc) à BSR AnnulationAbandon 
Nombre KONum DS.L 1 BRA FinReception 
NombreBlocRecu DS.L 1 e1 wi #NACK, DO 
Honbhe DE et Re De:z, 1 BNE.S AttenteBlocControle 
NumeroBlocLettre DS.B 6 BSR CodeDifferent 
CodeConnexion DC.B 27,57,104,0 BRA ActentellooContrc ls 
CodeDeconnexion DC.B 27,57,103,0 
Codeopposition DC.B  27,51,111,0 ContenuBeader 
RectangleNiveauRs ps 4 MOVE.B TamponEntre+#TypeEËmetteur (AS), DO 
RectangleNiveau pc 97,333,107,462 RE 
RectangleEffaceNiveau DC 100,334,106,461 DR rome 
RectangleEffaceNiveau? DC 98,334,99, 461 BRA.S  FinReception 
nor ns 1 @5 SuBQ.B #1,D0 
FichierTexte2 Ds 1 ser ,s 
NOctets DS.L 1 rues ReceptionApple 
DrAbandon Ds 1 BRA.S FinRecept ion 
NombreBlocsD Ds 1 @6 suBQ.B #1,D0 
NombreBlocsR Ds 1 BNE.S 07 
NcmbreBlocsT Ds 1 BSR ReceptionIBM 
NombreBlocEn1s Ds 1 DANS. inneepeen 
CompteurBlocs Ds 1 07 BSR Receptionserveur 
CompteurEssais Ds 1 FinRecept ion 
TableEquival DC.B 35,'£" PEA CodeDeconnexion 
DC.B 64, °à° BSR CodeMinitel 
DC.B  91,"*" MOVE.L HandleControle3(AS),-(5?) 
DC.B 92,'ç" PEA TitreBouton3 
DC.B  93,'$" _setCritle 
pC.B 123, 'é" _InitCursor 
DC.B  124,"à" PEA RectEffMess12 
DC.B 125,'è" EraseRect 
pc.B 126,°"* PEA RectangleEffaceNiveau 
CompteurTiming DS.L 1 ErasoRect 
Nombre BD Ds 1 PEA RectangleEffaceNiveau2 
NombreBR Ds 1 EraseRect 
Cl DC.B  28,'Attente du bloc de contrôle." MOVE.L vcbQHdr+2,A3 
C2 DC.B 30, ‘Réception du bloc de contrôle " MOVE VolumeCourant (AS), DS 
C18 DC.B 29, mission du bloc de contrôle" 02 CMP vebVRefNum (A3) ,DS 
C15 DC.B 34,'Annulation demandée par BEQ.S @1l 
l''émetteur" MOVE.L (A3),A3 
c19 DC.B  26,'Annulation demandée par le‘ BRA.S 02 
c27 DC.B 9, récepteur’ @1 BSR VolumeSuivant2 
C23 DC.B 28,3" pour prévenir l''émetteur_" BSR A£fNom 
C16 DC. 32,'Pas assez de place sur ce volume" RTS 
c3 DC.B 21, Réception du fichier ‘ CodeDifferent 
C4 DC.B 18,* blocs) depuis un ‘ PEA c24 
C5 DC.B 16,'Attente du bloc ‘ BSR A£ Fi cheM2 
cé Dc.B 16, ‘Réception du bloc ? PEA RectangleEffaceNiveau2 
C20 DC.B 17, Émission du bloc ER 
c7 DC.B 30,'11 nous faut, hélas, renoncer." 3SR Attente6 
C8 DC.B 22,' Transmission terminée." PEA RectEffMoss2 
c9 DC.B 9, Macintosh" EraseRect 
c19 DC.B 8,'Apple ][' RTS 
C1l DC.B (OT 
c12 DC.B 3, '1BM" Recept ionApple 
c13 DC.B 13, ‘Serveur Pom''s' MOVE.B TamponEntre+TypeTexteApple (A5} , DO 
C14 DC.B 19, "Annulation demandée‘ CMPI.B #4,D0 
c17 DC.B 26, 'Liaison avec le récepteur." BEQ.S @5 
€c21 DC.B 24,'Liaison avec l''émetteur." CMPI.B #$19,D0 
C22 DC.B 9, 'ème essai’ BEQ.S e5 
C24 DC.B 20, "Réémission demandée." CMPI.B #$1A,D0 
C25 DC.B 22, Confirmation en cours." BEQ.S @5 
C26 DC.B 20,'Annulation en cours. CMPI.B #$1B,D0 
C28 DC.B 15,' (automatique) .' BNE.S e6 
c29 DC.B 11,' (demandé) ." @s sT FichierTexte?2 (AS) 
c30 DC.B 17,' bloc) depuis un ‘ MOVE.L CreateurbWrite, Createur (AS) 
CMF DC.B ‘.INCOMPLET' BRAS 07 
*ALIGN 2 @6 sr FichierTexte2 (AS) 
MOVE.L CreateurEdit,Createur (AS} 
Fichier ‘nterPom's/2.Asm’ e7 ss a (A5),D0 
CMP.L Nomb reKONum (AS) , DO 
Rapeniien BMI.S @1 
BSR Montre 
CLP. NumeroBloc (A5) a re 
MOVE.L #$0064014E,RectangleNiveauRB+top (A5) BSR AfficheM1 
MOVE #106,RectangleNiveauRB+bottom (A5) BSR Tempo 
PEA CodeConnexion RTS 
BSR CodeMinitel @1 BSR NouveauFichier 
MOVE.L BandleControle3(AS),-(SP} BEQ.S eis 
PEA TitreBoutonAnnuler RTS 
_SetCTitle @15 MOVEQ #0,D0 
PER Tampon1OEntre (AS} BSR OuvertureFichier 
BSR VideBuffer BEQ e4 
AttenteBlocControle RTS 
@1 BSR NACKx10 04 BSR ChangeNumeroBloc 
MOVE Code (A5), D0 @19 BSR AfficheAttenteBloc 
CMPI 4508,D0 MOVE #ACK,- (SP) 
BEQ.S LectureBlocControle BSR EnvoiCode 
CMPI #CAN,D0 €2 BSR TesteTimeOut 
BNE.S e2 BEQ.S e28 
BSR AnnulationEmetteur BSR AnnulationAbandon 
BRA FinReception BRA AbandonReceptionApple 
@2 CMPI #CAN_U,D0 028 BSR TesteAnnulerR 
BNE.S 63 TST Code (AS) 
BSR AnnulationUtilisateur BEQ.S @20 
BRA FinRecept ion BSR AnnulationUtilisateur 
@3 CMPI #CAN_A,D0 BRA AbandonReceptionApple 
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BEQ.S e1s 
CMPI #CAN,D0 
BNE.S e22 
BSR AnnulationEmetteur 
BRA AbandonReceptionApple 
@22 CMPI #EOT, DO 
BEQ FinReceptionApple 
024 BSR CodeDifferent 
@27 BSR AfficheAttenteBloc 
MOVE #NACK, - (SP) 
BSR EnvoiCode 
BRA.S e2 
018 PEA c6 
BSR AfficheMl 
PEA NumeroBlocLettre (A5) 
_DrawString 
BSR LireBloc 
MOVE Code (A5), D0 
BEQ.S 16 
CMPI 4CAN_A,D0 
BNE.S 23 
BSR AnnulationAbandon 
BRA AbandonReceptionApple 
023 BRA.S @24 
16 BSR VerificationBloc 
MOVE Code (AS) ,D0 
BEQ.S e3 
CMPI 401F,D0 
BNE.S e25 
BSR AfficheAttenteBloc 
MOVE #ACK,- (SP) 
BSR EnvoiCode 
BRA e2 
@25 CMPI 4CAN_A, DO 
BNE e27 
BSR AnnulationAbandon 
BRA AbandonReceptionApple 
03 BSR DecodeBloc 
TST.B FichierTexte?2(AS} 
BEQ.S 8 
BSR ModifsFichierTexteA 
@8 BSR SPNiveauRecept ion 
BSR EcritBlocDisque 
BEQ @4 
RTS 
FinReceptionApple 
MOVE #ACK,- (SP) 
BSR EnvoiCode 
PEA RectEffMess2 
_EraseRect 
PEA cs 
BSR AfficheM1 
LEA TamponIO(AS), A0 
MOVE.L NombreOctetRecu (AS), 1oLEOF (AO) 
_SetEOF 
@1 sr DrAbandon (A5) 
BRA.S ARA2 
AbandonReceptionApple 
sT DrAbandon (AS) 
ARA2 
BSR FermetureFichier 
BSR LirelnfoFichier 
BEQ.S 93 
RTS 
@3 LEA TamponlO(AS), A0 
MOVE.L #'TEXT',10FlUsrWds+fdType (A0) 
MOVE.L Createur (AS},i1oFlUsrWis+fdCreator (A0) 
_SetFilelnfo 
@2 TST.B DrAbandon(AS) 
BEQ.S al 
BSR RencommerFichier 
@1 BSR MiseJourVolume 
BSR Tempo 
RetourRecept ionApple 
RATS 
AfficheAttenteBloc 
PEA RectEffMess2 
_EraseRect 
PEA cs 
BSR AfficheM] 
PEA NumeroBlocLettre (AS) 
_DrawString 
RTS 
Attenteé 
MOVE.L 4#480,D3 
SUBQ 44,5P 
_TickCount 
MOVE.L (SP)+,D4 
ADD.L D3,D4 
@1 _SystenTask 
SUBQ +4,5P 
_TickCount 
CMP.L (SP) 4+,D4 
BEI.S ei 
PEA TamponlOEntre (A5) 
BSR VideBuffer 
RATS 
BlocCentrole 
PEA RectEffMess12 
_EraseRect 
PEA c2 















BSR GetTimer 


BSR AfficheMl 
BSR LireBloc LEA TamponlOEntre(AS}, A0 
TST Code (AS) MOVE.L #1,ioReqCount (A0) 
BEQ.S es LEA scratch8, A3 
RATS MOVE.L A3,icBuffer (A0) 
es BsR VerificationBloc MOVE  #fsFronStart, 1oPosHode (A0) 
TT Code (AS) CLR.L 1oPosOffset (A0) 
BEQ.S @1 es 
RTS BNE e7 
e1 BSR Dacdostss MOVE.B (A3),TamponEntre+l (A5) 
BSR DeplaceNFR PEA RectangleEffaceNiveau2 
EraseRect 
ar M CLR.L  MOctets (AS) 
BSR MinusMajus @1 LEA TanponlOEntre (AS), A0 
@13 BSR LongueurNomFichierRecu MOVE #2, csCode (A0) 
MOVE 47,-(5P) _Status, Inmed 
_SysBeep BNE e7 
PEA 3 LEA Tampon IOEntre (AS), A0 
BSR AfficheMl MOVE.L csParam(A0),DS 
PEA NomFichierRecu (A5) CHP.L NOctets(AS),DS 
_DrawString BNE.S @4 
CMPI.B #Applell,TanponEntre#TypeEmetteur (AS) 38 Ver1fTining 
BEQ.S  @10 TT Code (A5) 
MOVE TamponEntre+NBlocsTotal (AS), DO BEQ.S 03 
BRA.S  @7 BRA.S @5 
410 BsR SPNombreOctets 04 SUBQ.L 94,5? 
MOVE.L NombreOctetRecu (AS), DO -T4ckCount 
MOVE #512,01 MOVE.L (SP)+,CompteurTiming(AS} 
DIVU D1,D0 MOVE.L DS,NOctets (AS) 
SWAP DO LSR #4,05 
esT 0 MULU 43,05 
BEQ.S  €s ADD #334,05 
sw? Do MOVE.L #$0062014E,-(SP) 
ADDQ  #1,D0 _oveto 
BRA.S  @7 MOVE  DS,-(S?) 
@8 SWAP Do MOVE  #50062,-(SP) 
@7 ANDI.L #SFFFF,D0 _bineto 
MOVE.L  D0,NombreBlocRecu (AS) ET RESTE DS 
LEA scratch20, A0 mMI.S 1 
CLR (SP) MOVE.L 4687, ioReqCount (A0) 
Pack7 LEA TamponEntre+2 (AS), Al 
MOVE.L  #$004800D0,- (SP) MOVR:Z: A1, 1oBu£fer (A0) 
MoveTo MOVE 4fsFromStart, 1oPosMode (A0) 
MOVE # (,-(5P) CLR. 1oPosOffset (A0) 
_DrawChar _Read 
PEA scratch20 Led e7 
_DrawString SR Code (A5) 
CHPI 41, NonbreBlocRecu+2 (AS) og 
BGT.S eil VerifTining 
PEA c30 SUBQ.L 64,5P 
BRA.S @12 _TickCount 
@1i PEA ca MOVE.L  (SP)+,D0 
@12 DrawString SUB.L CompteurTiming (AS) ,D0 
MOVE.B TamponEntre+TypeEmetteur (AS), DO CMI1.L #30,D0 
BNE.S @2 BMI.S 03 
LEA c9,A0 MOVE #NACK, Code (AS) 
BRA.S es BRA.S e2 
e2 SUBQ.B #1,D0 e3 CLR Code (AS) 
BNE.S @3 e2 RTS 
LEA c10,A0 NACKx10 
BRA.S @5 PEA c21 
@3 SUBQ.B #1,D0 BSR Affiche! 
BNE.S 84 MOVEQ 2,05 
LEA C12,A0 e3 BsR UneSeconde 
BRA.S es DBRA Ds,03 
@4 LEA C13,A0 PEA TamponlOEntre (AS) 
@5 MOVE.L A0,-(SP) BSR VideBuffer 
_DrawString MOVEQ  #1,D5 
BSR Tempo el MOVE DS,-(SP) 
CLR Code (A5) BSR AfficheNunEssai 
RTS MOVE #NACK, — (SP) 
DeplaceNFR BSR EnvoiCode 
MOVEQ 40,00 BSR DixSecondes 
MOVE.B TamponEntre+NomFichier Apple (A5), DO TST Code (AS) 
ADDQ #1,00 BNE.S e2 
LEA TamponEntre+NomFichierApple (AS) , AO ADDQ  #1,D$ 
LEA NomFichierRecu (AS) , Al CMPI 621,05 
BlockMove BNE.S ei 
RTS MOVE #7,-(5P) 
_SysBeep 
ds =" "IS MOVE  #CAN_A, Code (AS) 
LEA NonFichierRecu (AS) , A0 e2 RTS = 
MOVE.B (AO) +, DO 
EXT vo DixSecondes 
ADDQ.L #1,A0 MOVE.L #300,D3 
suBQ “4,5P 
SUBQ #2,00 PickCount 
@1 MOVE.B (A0),D1 œ 
CMPI.B #'A',D1 MOVE.L (SP)+,D4 
BM1.S ADD.L D3,D4 
CMI.B #'z',D1 @1 BSR TesteAnnulerR 
BCT.S @2 77 Code (A5) 
ORI.B #32, (A0) + BEQ.S @4 
BRA.S e3 MOVE 4CAN_U, Code (AS) 
@2 ADDQ.L #1,A0 BRA.S e3 
@3 DBRA p0,@1 @4 BSR AttenteLiaisonEmetteur 
RTS 7sT Code (AS) 
LireBloc BNE.S e: 
MOVE.B 41,TamponEntre (AS) e2 SUBQ 64,5r 
@2 LEA Tampon IOEntre (AS) , AO Ce 
MOVE  #2,csCode (A0) CReh (R)#pe 
_Status, Immed sel.s el 
BEQ.s 6 e3 R1S 
@7 MOVE #2,-(5P) Annulaticn£metteur 
BSR Erreur MOVE #7, (SP) 
_ExitToShell _SysBeep 
@6 LEA TamponlOEntre (AS), AO PEA ci1s 
TST-L csParam (AO) BSR AfficheMl 
PEA c25 


BEQ.S 


e2 





BSR AfficheM2 
BSR TroisACK 
RTS 

AnnulationUtilisateur 
PEA c26 
BSR AfficheM] 
PEA RectEffMess2 
_EraseRect 
BSR TroisCANCEL 
RTS 

AnnulationAbandon 
MOVE #7,-(SP) 
_SysBeep 
PEA c? 
BSR AfficheMl 
PEA c23 
BSR AfficheM2 
BSR TroisCANCEL 
RTS 

TroisCANCEL 
MOVEQ  #2,D5 

@1 MOVE CAN, -(SP) 
BSR EnvoiCode 
BSR UneSeconde 
DBRA D5,01 
RTS 

TroisACK 
MOVEQ #2,05 

@1 MOVE #ACK,-(SP) 
BSR EnvoiCode 
BSR UneSeconde 
DBRA Ds,e 
RTS 

TroisEOT 
MOVEQ  #2,D5 

1 MOVE #EOT,- (SP) 
BSR EnvoiCode 
BSR UneSeconde 
DBRA Ds,@1 
RTS 

EnvoiCode 


ei 


LINK A6,40 

LEA TanponIOSort (AS}),A0 
MOVEQ #1,D0 

MOVE.L DO, oReqgCount (A0) 

LEA TamponSortie (AS),Al 
MOVE.L Al, ioBuffer (A0) 

MOVE.B 9(A6),TamponSortie (AS) 
MOVE #fsFromStart, 1oPosMode (AO) 
CLR.L 1oPosOffset (A0) 

_Write 

BEQ.S @1 

MOVE #2,-(5P) 

BSR Erreur 

_ExitToShell 

UNLK A6 

MOVE.L (SP),2(SP) 

ADDQ.L #2,5P 

RTS 


UneSeconde 


ei 


MOVE.L #60,D3 
SUBQ #4,5P 
_TickCount 
MOVE.L (SP)+,D4 
ADD.L D3,D4 
_SystenTask 

SUBQ 44,5P 
_TickCount 

CMP.L (SP) +,D4 
BEI.S @1 

RTS 


Tempo 


ei 


MOVE.L #180,D3 
suBQ #4,5P 
_TickCount 
MOVE.L (SP)+,D4 
ADO.L D3,D4 
SUBQ +4,5P 
_TickCount 

CMP.L (SP) +,D4 
BBI.S ei 

RTS 


CodeMinitel 


ei 


LINK A6,40 

LEA TamponlOSort (AS), A0 

MOVEQ #3,00 

MOVE.L D0,1cRegCount (A0) 

LEA TamponSortie (AS}),Al 

MOVE.L Al, ioBuffer (AO) 

MOVE.L S8(A6),A1l 

MOVE.L (Al),TamponSortie(AS} 

MOVE #fsFromStart, oPosMode (A0) 
1oPosOffset (AO) 


BEQ.S @1 

MOVE #2,-15P) 
BSR Erreur 
_ÆExitToShell 

UNLK A6 

MOVE.L (SP),4(SP) 
ADDQ.L #4,5P 


NomExistant 


LEA NomFichierRecu (AS) , A0 
MOVE.B  (A0),D0 
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CMP1.B #62,D0 
EMI.S Moins62 
MOVE.B 624(A0}),D1 
CM1.B #'.',D1 
BEQ.S DejaModifPlus62 
MOVE.B #'.',62(A0) 
MOVE.B #'A',63 (A0) 
MOVE.B #63, (A0) 
RTS 

De jaModi fP lus62 

@1 ADDQ.B #1,63(A0) 
CMPI.B #':",63(A0) 


BEQ.S el 

RTS 
Moins62 

EXT Do 


MOVE.B -1(A0,D0),D1 
CMPI.B #'.',D1 
BEQ.S DejaModif 
MOVE.B 4#'.',1(A0,D0) 
MOVE.B 4#'A',2(A0,D0) 
ADDQ.B #2, (A0) 
RTS 

De jaModi f 

@1 ADDQ.B #1,0(A0,D0) 
CHPI.B #':',0(A0,D0) 


BEQ.S @1l 
RTS 

AfficheM] 
LINK A6,4#0 
PEA RectEffMessl 
_EraseRect 
MOVE.L #$003800D0,-(SP) 
_MoveTo 
MOVE.L B(A6},-(SP) 
_DrawString 
UNLK A6 
MOVE.L (SP),4(SP) 
ADDQ.L #4,SP 
RTS 

A£F1cheM2 
LINK A6,40 
PEA RectEffMess2 
_EraseRect 
MOVE.L #$004800D0,-(SP)} 
_HoveTo 
MOVE.L B(A6),-(SP) 
_DrawString 
UNLK A6 
MOVE.L (SP),4(SP) 
ADDQ.L #4,SP 
RTS 

AfficheNumEssai 


LINK ÀA6,40 
MOVE 8(A6),D5 
CMPI #1,05 


BEQ.S ei 
PEA RectEffMess2 
_EraseRect 
MOVE.L 4#$004800D0,- (SP) 
_HoveTo 
MOVE D5,D0 
EXT.L DO 
LEA scratch8, A0 
CLR (SP) 
_Pack7 
PEA scratch8 
_DrawString 
PEA c22 
_DrawString 

@1 UNLK A6 
MOVE.L (SP),2(SP) 
ADDQ.L #2,5P 
RTS 


AttenteLiaisonEmetteur 
LEA Tampon1OEntre (AS), A0 
MOVE #2,csCode (A0) 
_Status, Immed 


BEQ.S g4 
@5 MOVE #2,-(SP) 
BSR Erreur 
_ExitToShell 
@4 LEA TamponlOEntre (AS), A0 


TST.L csParam (A0) 

BEQ.S e2 

MOVE.L 41,{oReqCount (A0) 
LEA scratch8, A3 


MOVE.L A3,1oBuffer (A0) 
MOVE 4£sFromStart, LoPosMode (A0) 


CLR.L ioPosOffset (A0) 
_Read 
BNE.S es 
MOVE.B (A3),D0 
ANDI.B #$7F,D0 
EXT Do 
MOVE DO, Code (A5) 
BRA.S 03 
€2 CLR Code (A5) 
63 RTS 
ModifsFichierTexteA 
MOVEQ  #127,D0 
LEA TamponEntre+TypeEmetteur (AS} , AO 


@1 ANDI.L #$7F7F7F7F, (A0)+ 


DBRA  DO0,@1 
LEA TableËquival,A2 
#16,D2 
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@2 MOVE.B O(A2,D2},D0 
MOVE #511,D1 
LEA TamponEntre+TypeËmetteur (AS}, AO 
04 CMP.B {40} ,D0 
BEQ.S es 
ADDQ.L #1,A0 
BRA.S e6 
@5 MOVE.B 1(A2,D2), (A0)+ 
@6 DBRA D1,64 
SUBQ #2,02 
BGE.S e2 
RTS 
Fichier ‘InterPom'’s/3.Asm’ 
Emission 
BSR Montre 
CLR NumeroBloc (AS) 
CLR NombreBlocEmis (AS) 
MOVEA.L (A5},A0 
PEA 1itgray (A0) 
_PenPat 
PEA RectangleEffaceNiveau 
_PaintRect 
_PenNormal 
MOVE 4$50064,RectangleNiveauRB+top (A5) 
MOVE.L #5006A01CD, RectangleNiveauRB+#bottom (A5) 
PEA TamponlOEntre (AS) 
BSR VideBuffer 
PEA CodeOpposition 
BSR CodeMinitel 
PEA CodeConnexion 
BSR CodeMinitel 
MOVE.L BandleControlelr2(ASs},-(5P) 
PEA TitreBoutonAnnuler 
_SetCTit le 
LEA TamponTemporaire (AS) , A0 
LEA TamponSortie+TypeEmetteur (AS), Al 
MOVEQ #1oF@E151ze, DO 
_BlockMove 
MOVEQ  #0,D0 
MOVE.B ReponseGetFile+rName (A5) , DO 
ADDQ #1,D0 
LEA ReponseGetFile+rName (A5) ,AQ 
LEA TamponSortie+NomFichierApple (AS), A1 
_BlockMove 
LEA TamponSortie (AS), A0 
MOVE.L #$01COFFFF, DebutBloc(AC} 
CLR.B TypeEmetteur (A0) 
CMPI.L #4'TEXT',TypeEmetteur+ioFlUsrwds+ 
fdType (A0) 
BNE.S ei 
MOVE.L #$4000000, TypeTexteApple (AO 
BRA.S e2 
@1 CLR.B TypeTexteApple (A0) 
@2 MOVE.B TypeEmetteur+ioFlLgLen+1 (A0), 
LongLog_Apple+2 (A0) 
MOVE.B TypeEmetteur+ioFlLgLen+2 (A0), 
LongLog_Apple+1 (A0) 
MOVE.B TypeEmetteur+1oFlLgLen+3 (A0), 
LongLog_Apple (A0) 
MOVE fLonqueurBloc, D1 
MOVE.L TypeEmetteur+ioFlLgLen (A0), DO 
DIVU D1,D0 
SWAP Do 
TST Do 
BEQ.S 03 
SWAP po 
ADDQ #1,D0 
BRA.S @4 
@3 Swap po 
@4 MOVE D0,NBlocsData (A0) 
MOVE.L ‘TypeËmetteur+10F1RLgLen (A0), DO 
DIVU D1,D0 
SWAP Do 
TST Do 
BEQ.S es 
SHAP Do 
ADDQ #1,D0 
BRA.S @6 
@5s SAP Do 
€6 MOVE D0,NBlocsResource (A0) 
ADD NBlocsData (A0) ,DO 
MOVE D0,NBlocsTotal (A0) 
MOVE DO, NombreBlocsT (AS) 
MOVE.B NBlocsTotal+l(A0),NBlocsApple (A0) 
MOVE:B NBlocsTotal (A0), NBlocsApple+i (A0) 
MOVE NBlocsData (A0), NombreBlocsD (AS} 
MOVE NBlocsResource (A0), NombreBlocsR (AS) 
BSR Date _Heure 
BSR CodeBloc 
BSR CheckSum 
PEA c17 
BSR AfficheMl 
BSR AttenteLiaison 
MOVE Code (A5), DO 
BGE.S e7 
BSR AbandonEmission 
BRA SortieEmission 
@7 Cmri CAN _U,D0 
BNE.S es 
BSR ArretEmission 
BRA SortieEmission 
@9 CMPI 4CAN,D0 
BNE.S es 
BSR Annulat ionRecepteur 
BRA SortieEmission 
@8 PEA ci8 


BSR AfficheM1 
MOVE #1,CompteurEssais (A5) 


ETQI1 
BSR Envoilbloc 

@8 BSR AttenteBlocOK 
TST Code (A5) 
BNE.S es 


ADDQ 11,CompteurEssais (A5} 

C1 #NombreMaxEssai+l, CompteurEssais (AS) 
BEQ.S ei 

MOVE CompteurEssais(AS),-(SP) 


BSR AfficheNumEssai 
PEA c28 
_DrawString 
BRA ETQ11 
e1 BSR AbandonEmission 
BRA SortieEmission 
03 MOVE Code (A5), DO 
CMPI #CAN,D0 
BNE.S ETQ10 
BSR Annulat ionRecepteur 
BRA SortieEmission 
ETQi0 
CMPI #CAN_U,D0 
BNE.S e2 
BSR ArretEmission 
BRA SortieEmission 
@2 CMPI #NACK, DO 
BNE.S @1l 
ADDQ #1,CompteurEssais (A5) 
MOVE CompteurEssais (AS),-(SP) 
BSR AfficheNumEssai 
PEA c29 
_DrawString 
BRA ETQ11 
@1 TST NombreBlocsD (AS) 
BEQ BlocsRessource 
BlocsDonnees 
MOVE NombreBlocsD (AS) ,CompteurBlocs (A5) 
LEA TamponIO(AS}, A0 
LEA ReponseGetFile+rName (A5) ,A1l 
MOVE.L Al,iocFileName (A0) 
MOVE ReponseGetFile+r Volume (A5), 
{oVRefNum (A0) 
CLR.L LoOwnBu£ (A0) 
MOVE.B #fsRdPerm, ioPermssn(A0) 
_Open 
BEQ.S ei 
CLR -(sP} 
BSR Erreur 
BRA SortieEmission 
@1 BSR SpEmission 
BNE SortieEmission 
BSR Fermeturerichier 
BlocsRessource 
TST NombreBlocsR (AS) 
BEQ SortieEmission2 
MOVE NombreBlocsR (A5) ,CompteurBlocs (AS} 
LEA TamponlO(AS},A0 
LEA ReponseGetFile+rName (A5) , Al 
MOVE.L Al,1oFileName (A0) 
MOVE ReponseGetFile+r Volume (AS), 
1oVRefNum (A0) 
CLR.L 1oOwnBuf (A0) 
MOVE.B #fsRdPerm, 1oPermssn (A0) 
_OpenRr 
BEQ.S ei 
CLR (SP) 
BSR Erreur 
BRA SortieEmission 
@1 BSR SpEmission 
BNE SortieEmission 
FinTransmission 
BSR FermetureFichier 
SortieEmission2 
PEA RectEffMess2 
_EraseRect 
PEA ce 
BSR AfficheMl 
BSR TroisEOT 
SortieEmission 
PEA CodeDeconnexion 
BSR CodeMinitel 
MOVE.L HandleControlelr2(A5},-(SP) 
PEA TitreBoutonlF2 
_setCTitle 
_InitCursor 
PEA RectEffMessl2 
_EraseRect 
PEA RectangleEffaceNiveau 
_EraseRect 
PEA RectangleEffaceNiveau2 
_EraseRect 
RATS 
TesteAnnuler 
_SystenTask 
SsuBQ #2,5P 
MOVE +2,-(SP) 
PEA EnregEvents (AS) 
_GetNext Event 
TST (SP)+ 
BEQ.S RetourTesteAnnulerNon 
al sus +2,5SP 


MOVE.L EnregEvents+tevtMouse (AS) ,-{(SP) 
PEA EnregEvents+evtMeta+2(A5} 
_Findwindow 

CMPI #inContent, (SP}+ 





BNE.S BeepTesteAnnuler 

MOVEA.L EnregEventstevtMeta+2{(AS),A4 
TST.L wRe fCon (A4) 

BEQ.S BeepTesteAnnuler 

MOVE.L A4,-(SP) 

_SetPort 

PEA EnregEvents+EvtMouse (AS) 
_GlobalToLocal 

SUBQ.L #2,5P 

MOVE.L EnregEvents+EvtMouse (AS) ,-(S?) 
MOVE.L A4,-{(SP) 


PEA EandleControle (AS) 
_FindControl 
TST (SP)+ 


BEQ.S BeepTesteAnnuler 

SUBQ.L #2,5P 

MOVE.L BandleControle{AS),-(SP) 
MOVE.L EnregEvents+EvtMouse (AS) ,-(SP) 
CLR.L -(5P) 

_TrackControl 

TST {sP)+ 

BEQ.S BeepTesteAnnuler 

SUBQ.L #4,5P 

MOVE.L HandleControle(ASs},-(SP) 
_GetCRefCon 

MOVEQ  4#3,D0 

CMP.L  (SP)+,D0 

BNE.S BeepTesteAnnuler 

MOVE  4#CAN_U, Code (A5) 


RTS 
BeepTesteAnnuler 
BSR Beep7 
RetourTesteAnnulerNon 
CLR Code (AS) 
RTS 
Date_Heure 


MOVE.L Time,-(SP) 

MOVE.B flongDate,-(5SP) 

PEA TazponSort ie+Date (AS) 
MOVE #IUDateString,-(SP}) 
_Pack6 

MOVE.L Time,-(SP) 

CLR — (SP) 

PEA TamponSort le+Heure (AS) 
41UTimeString,-(SP) 


ji 


TamponSortie+Date (AS) , AO 
(A0) ,D0 

po 

*',',1(A0,D0) 

4" ",2(A0,D0) 

3 (A0,D0),A1 

TamponSort ie+Heure (AS) , AO 
(A0) +, D0 

Do 

#1,00 

(AO})+, (Al1)+ 

Do,@1 

TamponSortie+Date (AS) ,DO 
TamponSort Le+Heure (A5) , DO 
#3,00 

DO, TamponSort ie+Date (AS) 
TamponSortie+Date (AS) , AO 
(A0) ,D0 

po 

%".°,0(A0,D0) 


HITTÉLET 


8 


ea 


DOI 


LEA TamponSort Le+TypeEmetteur (AS), A3 
MOVE 170,05 
MOVE fLongueurBlocC-3, D4 
MOVE fLongueurBloc-2,D3 
@1 CLR.L -(SP) 
MOVE.B O(A3,D3),1(SP) 
MOVE.B 1(A3,D3),2(SP) 
MOVE.B 2(A3,D3),3(SP) 
BSR Codage 
MOVE.L (SP)+,0(A3,D4) 
SUBQ #4,D4 
SUBQ #3,03 
DBRA Ds,@i 


RTS 
Codage 
Nul SET 8 
Octetl Set $ 
Octet2 Set 10 
Octet3 Set a 


LINK  A6,40 

MOVEM.L DO-D1,-(5P) 
MOVE.B Octet1 (A6) ,D0 
LSL *6,D0 

MOVE.L Nul(A6),D1 
LSR.L #Nul,D1 

LSR 4,01 

MOVE.B D1,D0 

LSL.L #Nul,D0 

MOVE Octet2 (A6) ,D1 
LSR “6,01 

MOVE.B D1,D0 

LSL.L #Nul,D0 
MOVE.B Octet3 (A6) ,D0 
ORI.L  #$COCOCOCO, DO 
MOVE.L DO, Nul (A6) 
MOVEM.L (SP)+,D0-D1] 
UNLK A6 


CheckSum 


LEA TamponSortie+TypeE=etteur (AS), AC 
MOVEC #,20 
MOVE +683,D1 

@1 MOVE.B (A0)+,D2 
ANDI.B #SixFaibles,D2 
ADD.B D2,D0 
DBRA D1,01 
CRI.3 #DeuxForts,D0 
MOVE.B DO, (A0) 
RTS 

AttenteLiaison 
MOVE.L #3600,D3 
SUsQ 4,5? 
_TickCount 
MOVE.L (SP)+,D4 
ADD.L D3,D4 


81 sr TesteAnnuler 
7sT Code (AS) 
BNE.S e2 
BSR AttenteLiaisonRecepteur 
TST Code (AS) 
BNE.S e2 
susQ +4,5sp 
_TickCount 
CMP.L (SP) +,D4 
Bal.s ei 
MOVE #-1,Code (AS) 

e2 RTS 

AttenteLiaisonRecepteur 


LEA TamponlOEntre(AS),A0 
@1 MOVE #2, csCode (A0) 
_Status, Inned 


BEQ.S @4 

06 MOVE #2,-(5P) 
BSR Erreur 
_ExitToshell 

@4 LEA Tampon 1IOEntre (AS), A0 
TST.L csParam (A0) 
BEQ.S e2 
MOVE.L 4#1,ioReqCount (A0) 
LEA Scratch8,A3 
MOVE.L A3,ioBuffer (AO) 
MOVE #fsFromStart, 1oPosMode (A0) 
CLR.L 1oPosOf fset (AO) 
_Read 
BNE.S e6 
MOVE.B (A3),D0 
ANDI #57F,D0 
CHP1I.B #CAN,D0 
BNE.S e3 
MOVE DO, Code (AS) 
RTS 

@3 CM1I.B #NACK,D0 
BNE.S ei 
MOVE DO, Code (AS) 

e2 n7s 


AttenteConfirmeAnnulat ion 
LEA TamponIOEntre (AS), A0 
e1 MOVE #2, csCode (A0) 
_Status, Inmed 


BEQ.S e4 

@5 MOVE #2,-(5?) 
BSR Erreur 
_ExitToShell 

@4 LEA TamponlOEntre (AS), A0 
TST.L csParam (AO) 
BEQ.S e2 
MOVE.L #1,ioReqgCount (A0) 
LEA scratch8, A3 


MOVE.L A3, ioBuffer (A0) 
MOVE #fsFrouStart, 1o0PosMode (A0) 
CLR.L 1oPosOffset (A0) 


BNE.s 5 

MOVE.B  (A3),D0 
ANDI  #57F,D0 
CHPI.B  4CAN,D0 


BNE.S e3 
MOVE DO, Code (A5) 
RTS 
@3 CMI.B #ACK,D0 
BNE.S ei 
MOVE #NACK, Code (AS) 
@2 RTS 
AttenteBlocOK 


MOVE.L #540,D3 
SuBQ 4,5? 
_TickCount 
MOVE.L (SP)+,D4 
ADD.L D3,D4 


@1 SR TesteAnnuler 
TST Code (AS) 
BNE.S e2 
BSR AttenteCarBlocOK 
TST Code (AS) 
BNE.S e2 
SUBQ #4,5P 
_TickCount 
CMP.L (SP) +,D4 
B&1.S al 
CLR Code (AS) 
e2 xs 
AttenteCarBlocOK 
LEA TamponIOEntre (AS), A0 


@1 MOVE #2, csCode (A0) 
_Status, Inmed 
BEQ.S 5 





@6s MOVE #2,-(5P) 
BSR Erreur 
_ExitToShell 

@5 LEA Tampon1OEntre (AS), A0 
TST.L csParam (A0) 
BEQ.S e2 
MOVE.L #1,ioRegCount (A0) 
LEA scratch8, A3 
MOVE.L A3,1oBuffer (A0) 
MOVE 4fsFromStart, 1oPosMode (A0) 
CLR.L 10PosOfFset (A0) 
_Read 
BNE.S e6 
MOVE.B (A3),D0 
ANDI 457F,D0 
CMPI.B #CAN,D0 
BNE.S e3 
MOVE 4CAN, Code (AS) 
BRA.S @2 

@3 CMPI.B #ACK,D0 
BNE.S 84 
MOVE #ACK, Code (AS) 
BRA.S e2 

@4 CMI.B #NACK, DO 
BNE.S el 
MOVE #NACK, Code (AS) 

02 RTS 

Envoilbloc 
MOVE.L #$0062014E,-(SP) 
_HoveTo 
MOVE.L #$006201CD,-(SP) 
_LineTo 
MOVE.L #LongueurBlocC+6,NOctets (AS) 
LEA TaaponiOSort (AS), A0 
CLR.L ioCompletion (A0) 
MOVE.L #LongueurBlocC+6, ioRegCount (A0) 
LEA TamponSortie(AS},A1l 
MOVE.L Al, ioBuffer (A0) 
MOVE #fsFromStart, 1oPosMode (A0) 
CLR.L 1oPosOffset (A0) 
_Mrite,async 
BEQ.S el 
MOVE #2, (SP) 
BSR Erreur 
BSR FermetureËrr 
_ExitToShell 

@1 LEA TamponlOSort (AS), A0 
TST 1oResult (A0) 
BNE.S 02 
PEA RectangleEffaceNiveau2 
_EraseRect 
RTS 

@2 MOVE.L ioActCount (A0),D5 
CMP.L  NOctets(AS),D5 
BEQ.S el 
MOVEA.L (AS) ,A0 
PEA white (A0) 
_PenPat 
MOVE.L D5,NOctets (A5) 
MOVE.L #LongueurBlocC+6, DO 
su Ds,D0 
LSR 4,00 
MULU #3,00 
ADD 334,00 
MOVE DO,-(SP) 
MOVE +50062,-(SP) 
_HoveTo 
MOVE.L #$006201CC,-(5P) 
_LineTe 
_PenNormal 
BRA.S ei 

SPNiveauEmission 
MOVE.L #16384,D5 
MOVE NombreBlocs'? (AS), DO 
BNE.S ei 
MOVEQ ‘#1,D0 

@1 DIW D0,D5 
MULU NombreBlocEmis (AS) ,D5 
LSR.L 7,05 
MOVE *128,D4 
suB DS,D4 
ADDI #333,D04 
MOVE D4,RectangleNiveauRB+left (AS) 
PEA RectangleNiveauRB (AS) 
_EraseRect 
MOVE D4,-(SP) 
MOVE +50064,-(SP) 
_MoveTo 
MOVE D4,-(SP) 
MOVE #5006À,-(5P) 
_LineTo 
RTS 

AbandonE#ission 
BSR Beep7 
PEA RectEffMess2 
_Erasekect 
PEA c7 
BSR AfficheMl 
BSR FermetureFichier 
BSR TroisCANCEL 
RTS 

AnnulationRecepteur 
BSR Beep7 
PEA c19 
BSR AfficheMl 
PEA c27 
BSR AfFicheM2 
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BSR FermetureFichier 
BSR TroisACK 
RTS 
ArretEmission 
PEA RectEffMess2 
_EraseRect 
PEA Cc26 
BSR AfficheM2 
BSR FermetureFichier 
BSR TroisCANCEL 
RTS 
SpEmission 


@l ADDQ #1, NumeroBloc(As) 
ADDQ #1, NombreBlocEmis (A5) 
MOVEQ #0,D0 
MOVE NumeroBloc (AS) ,DO 


LEA NumeroBlocLettre (AS) , AO 

CLR (SP) 

_pack7 

LEA TamponSortie (AS), AO 

MOVE.B #SOE, (A0) 

MOVE.B NumeroBloc+1 (A5) ,DebutBloc+1 (A0) 
CRI. iDeuxForts,DebutBloc+1 (A0) 


B NumeroBloc+1(AS},D0 
EORI.B #SixFaibles, DO 
ORI. fDeuxForts,D0 
MOVE.B DO,DebutBloc+2 (A0) 
MOVE.B 4#$FF,DebutBloc+3 (AO) 


LEA Tampon1O(AS), A0 
MOVE.L fLongueurBloc, 1oRegCount (A0) 
LEA TamponSortie+TypeEmetteur (A5),Al 


MOVE.L Al, ioBuffer (A0) 
MOVE #£sAtMark, 1oPosMode (A0) 
CLR.L 1oPosOffset (A0) 

Read 


@9 BSR CodeBloc 
BSR CheckSum 
PEA RectEffMess2 
_EraseRect 
PEA c20 
BSR AfficheM]l 
PEA NumeroBlocLettre (AS) 
_DrawString 
MOVE 41,CompteurEssais (A5) 
3 BSR Envoiibloc 
BSR SPNiveauEmission 
@2 BSR AttenteBlocOK 
TST Code (A5) 
BNE.S @4 


ADDQ #1,CompteurEssais (AS} 
CMPI #NombreMaxE; 





BEQ.S @6 
MOVE CompteurEssais(AS),-(SP}) 
BSR AfficheNumEssai 
PEA c28 
_DrawString 
BRA e3 
06 BSR AbandonEmission 
BRA FinEmission 


@4 MOVE Code (AS), D0 
CMPI #CAN_U,D0 


BNE.S es 
BSR ArretEmission 
BRA FinEmission 
@8 CMPI 4CAN, DO 
BNE.S es 
BSR Annulat ionRecepteur 
BRA FinEmission 
@5 CMPI #NACK, DO 
BNE.S e7 


ADDQ #1,CompteurEssais (AS) 
MOVE CompteurEssais(A5),-(SP) 





BSR AfficheNumEssai 
PEA c29 
_DrawsString 
BRA e 
@7 SUBQ #1, CompteurBlocs (A5) 
BNE ei 
BSR FermetureFichier 
MOVEQ +0,D0 
RTS 
FinEmission 
MOVEQ #1,D0 
RTS 
Fichier ‘InterPom’s/4. Asm’ 
ReceptionIBM 
RTS 
ReceptionServeur 
RTS 
VerificationBloc 
LEA TamponEntre+TypeEmetteur (A5), A0 


MOVEQ 40,D0 

MOVE fLongueurBlocC,D1 
@1 ANDI.B #SixFaibles, (A0) 

ADD.B (A0) +, DO 

DBRA D1,@1 

ANDI.B #SixFaibles, DO 

ANDI.B #SixFaibles, (A0) 

CMP.B (A0) ,D0 


BEQ.S @2 
@5 MOVE ACBECK, Code (AS) 
BRA.S 03 


@2 MOVE NumeroBloc (A5) ,D0 
ANDI.B #SixFaibles,Dÿ 





1+1, CompteurEssais (AS) 





MOVE.B TamponEntre+NumBloc(AS),D1 
ANDI.B #SixFaibles,Dl 

CMP.B D1,D0 

BEQ.S g4 

SUBQ.B #1,D0 

CMP.B D1,D0 


BNE.S  @6 
MOVE  4DIF,Code (AS) 
BRA.S @3 

@6 MOVE  4CAN_A, Code (AS) 
BRA.S 03 


@4 EORI.B #SixFaibles, D] 


ANDI.B #SixFaibles,TamponEntre+NotNumBloc {A5} 


CMP.B  TamponEntre+NotNumBloc (AS) ,D1 


BNE.S es 
CLR Code (A5) 
@3 RTS 
LongueurNomFichierRecu 
CLR (SP) 
PEA NomFichierRecu (AS) 
_StringWidth 
CMPI #111,(SP)+ 
BLT.S @2 
MOVEQ #0,D4 
LEA NomFichierRecu (A5) ,A4 


MOVE.B (A4),D4 
@3 MOVE.B #'…',0(A4,D4) 


CLR (sr) 

PEA NomFichierRecu (A5) 
_StringWidth 

CMPI #111, (SP}+ 

BLT.S e2 


SUBQ.B #1,(A4) 
SUBQ #1,D4 


BRA.S 63 
@2 RTS 
DecodeBloc 
LEA TamponEntre+TypeËmetteur (A5), A3 


MOVE #170,05 
MOVEQ  #0,D4 
MOVEQ  4#0,D3 

@1 MOVE.L O(A3,D4),-(SP) 
BSR Decode 
MOVE.B 1(SP),0(A3,D3) 
MOVE.B 2(SP),1(A3,D3) 
MOVE.B 3(SP),2(A3,D3) 
ADDQO.L #4,5P 
ADDQ #4,D4 
ADDQ #3,03 
DBRA  D5,81 


RTS 
Decode 
Octetl SET 8 
Octet2 SET 9 
Octet3 SET 10 
Octet4 SET 11 


LINK  A6,40 

MOVEM.L DO-D1,-(SP) 
ANDI.L #$3F3F3P3F,Octet 1 (A6) 
MOVE  Octet3 (A6) ,D0 
LSR #2,00 

ANDI.B #$C0,D0 

CR.B D0,Octet 4 (A6} 
LSR #8,D0 

MOVE.B Octet2 (A6),D1 
LSL.B 4#4,D1 

oR.B D1,D0 

MOVE.B D0,Octet3 (A6) 
MOVE.B Octet2 (A6) ,D0 
LSR.B 4#4,D0 

MOVE.B Octetl (A6),D1 
LSL.B #2,D1 

©R.B D1,D0 

MOVE.B D0,Octet 2 (A6) 
CLR.B Octetl (A6) 
MOVEM.L (SP}+,D0-D1 
UNLK A6 

RTS 


VideBuffer 
LINK A6,40 
MOVE.L 8(A6),A0 
_K41110, immed 
BEQ.S al 
MOVE #2,-{(SP} 
BSR Erreur 
_ExitToShell 


@1 UNLK A6 
MOVE.L (SP),4(SP) 
ADDQ.L #4,5P 
RTS 


SPNombreOctets 
MOVEQ #0,D0 
MOVE.B TamponEntre+98 (AS) , DO 
LSL #8,00 
MOVE.B TamponEntre+97 (A5) ,DO 
LSL.L #8,D0 
MOVE.B TamponEntre+96 (AS} , DO 
TST.L po 
BNE.S el 
MOVEQ #*1,D0 

@1 MOVE.L D0,NombreOctetRecu (A5) 
RTS 


GetTimer 
SUBQ.L #4,5P 
_TickCount 
MOVE.L (SP)+,CompteurTiming (AS) 


RTS 
TesteTimeOut 
SUBQ.L #4,5P 
_TickCount 
MOVE.L (SP)+,D0 
SUB.L  CompteurTiming (AS) ,DO 
CM1.L #720,D0 


BMI.S ei 
MOVEQ #1,00 
RTS 
@1 MOVEQ 40,D0 
RTS 
TesteAnnulerR 
_SystemTask 


SUBQ #2,5P 
MOVE #2,-(SP) 


PEA EnregEvents (AS) 
_GetNextEvent 
TST (sP}+ 


BEQ.S  RetourTesteAnnulerNonr 

@1 suBQ #2,5P 
MOVE.L EnregEvents+evtMouse (A5) ,-{(SP} 
PEA EnregEvents+evtMeta+2 (A5) 
_Find#indow 
CHPI #inContent, (SP)}+ 
BNE.S BeepTesteAnnulerR 
MOVEA.L EnregEvents+evtMeta+2 (AS), A4 
TST.L wRefCon (A4) 
BNE.S BeepTesteAnnulerR 
MOVE.L A4,-(SP) 
_SetPort 
PEA EnregEvents+EvtMouse (AS) 
_GlobalToLocal 
SUBQ.L #2,SP 
MOVE.L EnregEvents+EvtMouse (A5) ,- (SP) 
MOVE.L A4,-(SP) 


PEA HandleControle (AS) 
_FindControl 
TST (SP)+ 


BEQ.S BeepTesteAnnulerR 

SUBQ.L #2,SP 

MOVE.L HandleControle(AS),-(SP) 
MOVE.L EnregEvents+EvtMouse (A5) ,—(SP} 
CLR.L (SP) 

_TrackControl 

TST {SP)+ 

BEQ.S BeepTesteAnnulerR 

SUBQ.L #4,5P 

MOVE.L ÆHandleControle({AS),-(SP) 
_GetCRefCon 

MOVEQ  #2,D0 

CMP.L  (SP)}+,D0 

BNE.S BeepTesteAnnulerR 

MOVE #CAN, Code (AS) 


RTS 
BeepTesteAnnulerR 

MOVE #7,-(SP) 

_SysBeep 


RetourTesteAnnulerNonR 
CLR Code (A5) 
RTS 


ChangeNumeroBloc 
ADDQ #1,NumeroBloc(As) 
MOVEQ  #0,D0 
MOVE NumeroBloc (AS) ,DO 


LEA NumeroBlocLettre (AS) , A0 
CLR (SP) 
_Pack7 
RTS 
SPNiveauRecept ion 
MOVEA.L (A5),A0 
PEA 1tgray (A0) 
_PenPat 


MOVE.L #16384,D5 

DIVU NombreBlocRecu+2 (A5) ,D5 
MULU NumeroBloc (AS) ,D5 
LSR.L +7,05 

ADDI #333,05 

MOVE DS ,RectangleNiveauRB+4right (A5) 
PEA RectangleNiveauRB (A5) 
_PaintRect 

_PenNormal 

MOVE DS,-(SP) 

MOVE 4$50064,-(SP) 

_MoveTo 

MOVE D5,-(SP) 

MOVE 45006A,-(SP) 

_LineTo 


RTS 


FermetureFichier 
LEA TamponlO(AS), A0 
_Close 
RTS 
MiseJour Volume 
LEA TamponiO(AS), A0 
CLR.L 10FileName (A0) 
MOVE VolumeCourant (A5), 1cVRe £Num (A0) 


_FlushVol 
BEQ.S el 
CLR (SP) 
BSR Erreur 
Q@1 RTS 
LirelnfoFichier 
LEA TamponiO(AS}, A0 
LEA NomFichierRecu (AS), Al 


MOVE.L Al,icFileName (A0) 





MOVE VolumeCourant (AS), 1oVRefNum (A0) 


CLR.B 10FileType (A0} 
CLR 1oFDirIndex (A0) 
_GetFilelnfo 
BEQ.S ei 
CLR — (SP) 
BSR Erreur 
MOVEQ 1,00 
RTS 
@1 MOVEQ 4#0,D0 
RTS 
EcritBlocDisque 
LEA TamponlO(AS}), A0 
MOVE.L #512,icReqCount (A0) 
LEA TamponEntre+TypeE=etteur (A5), Al 
MOVE.L Al,ioBuffer (AO) 
MOVE 4fsAtMark, 1oPosMode (A0) 
CLR.L  1oPosOffset (A0) 
_Mrite 
BEQ.S ei 
CLR —{SP) 
BSR Erreur 
BSR FermetureErr 
MOVEQ 1,00 
RTS 
@1 MOVEQ 40,00 
RTS 
NouveauFichier 
LEA TamponlO(AS), A0 
LEA NomFichierRecu (AS), A1 
MOVE.L Al,ioFileName (A0) 
MOVE VolumeCourant (AS) , 10VRe£Num (A0) 
_Create 
BEQ.S NouveauFichierOuvert 
CMPI +-48,D0 
BNE.S el 
BSR NomExistant 
BRA.S NouveauFichier 
@1 MOVE #3,-(5P) 
BSR Erreur 
MOVEQ +1,00 
RTS 
NouveauFichierOuvert 
MOVEQ ‘+0,00 
RTS 
OuvertureFichier 
LEA TamponlO(AS}, A0 
LEA NomFichierRecu (AS) ,Al 
MOVE.L Al,icFileName (A0) 
CLR.L 1oOwnBu£ (A0) 
MOVE.B #fsWrPerm, ioPermssn(A0) 
MOVE VolumeCourant (AS), 1oVRefNum (AO) 
TST Do 
BNE.S ei 
_Open 
BNE.S e2 
@3 MOVEQ #0,D0 
RTS 
@l _OpenrF 
BEQ.S e 
@2 MOVEQ #1,D0 
RTS 
RenommerFichier 
LEA NomFichierRecu (AS) ,A0 
LEA NomFichierModif({AS},Al 
MOVEQ 464,0 
_BlockMove 
LEA CMF,A0 
LEA NomFichierModif(AS),A1l 
MOVE.B (Al),D0 
EXT Do 
CMP1.B #53,D0 
BLE.S ei 
MOVEQ 454,00 
MOVE.B #63, (Al} 
BRA.S e3 
@1 ADDQ 1,00 
ADD.B #10, (A1) 
3 MOVEQ #9,D1 
@2 MOVE.B (A0)+,0(A1,D0) 
ADDQ #1,D0 
DBRA D1,82 
LEA TamponiO(AS), A0 
LEA NomFichierRecu (AS), A1 
MOVE.L Al,ioFileName (A0) 
MOVE VolumeCourant (AS), 1oVRe fNum (AO} 
LEA NomFichierModi£ (AS), Al 
MOVE.L Al,ioNewName (A0) 
CLR.B 1oFileType (A0) 
Rename 
BEQ.S @4 
CLR —{sP) 
BSR Erreur 
@4 RTS 
Beep7 
MOVE 47,-(SP) 
_SysBeep 
RTS 
Erreur 
LINK A6,40 
MOVE 8(A6),D4 
MOVE Do,D3 
BSR Beop7 
TST D4 
BNE.S el 


BSR TroisCANCEL 


e5 MOVE #1,05 
BRA.S FenetreËrreur 
e1 sus #1,D4 
BNE.S e2 
MOVE 2,05 
BRA.S FenetreErreur 
a2 sus #1,D4 
BNE.S e3 
MOVE #3,05 
BRA.S FenetreErreur 
e3 BsR TroisCANCEL 
MOVE #4,D5 
FenetreËrreur 
CLR.L {SP} 
MOVE.L #"STR ",-(SP) 
MOVE DS,-(SP} 
_GetResource 
MOVE.L (SP)+,A2 
MOVE.L A2,A0 
_ELock 
MOVE.L (A2),-(SP) 
CLR.L {SP} 
CLR.L -(sP) 
CLR.L -(SP) 
_ParanText 
CLR (SP) 
MOVE #128,-(5P) 
CLR.L (SP) 
_StopAlert 
MOVE (SP) +,D0 
MOVE.L A2,A0 
_EUnLock 
@1 UNLK A6 
MOVE.L (SP),2(SP) 
ADDQ.L #2,5SP 
RTS 
FermetureErr 
LEA TamponiO(AS), A0 
_Close 
RTS 
Fichier ‘InterPom’s/5.Asm’ 
ReceptionMac 
LEA TamponEntre+TypeEmetteur (AS}, AO 
LEA TamponTemporairer (AS) ,Ai 
MOVEQ  #ioF@ŒlSize, DO 
_BlockMove 
MOVE TamponEntre+NBlocsData(AS},NombreBD {AS} 
MOVE TamponEntre+NBlocsResource (AS), 
NonbreBR (AS) 
BSR DeplacexFr 
MOVEQ  40,D0 
MOVE TamponEntre+NBlocsTotal({AS}),DO 
LSR.L ‘1,00 
CMP.L  No=breKONu= (AS), DO 
BMI.S CreationFichierMac 
BSR Beep7 
PEA c16 
BSR Affiche] 
BSR Tezpo 
RTS 
CreationFichierMac 
BSR NouveauFichier 
BEQ.S OuvertureFichierMac 
RTS 
OuvertureFichierMac 
TST NombreBD (AS) 
BEQ CuvertureRessource 
MOVEQ 0,20 
BSR OuvertureFichier 
BEQ.S NumeroBlocMac 
RTS 
NumeroBlocMac 
BSR ChangeNumeroBloc 
AttenteBlocMac 
BSR AfficheAttenteBloc 
MOVE #*ACK,- (SP) 
BSR EnvoiCode 
Bouclel 
BSR TesteTimeOut 
BEQ.S el 
BSR AnnulationAbandon 
BRA AbandonRecept ionMac 
@1 BSR TesteAnnulerR 
TST Code (AS) 
BEQ.S e2 
BSR AnnulationUtilisateur 
BRA AbandonRecept iorMac 
e2 BSR AttenteLiaisonEmetteur 
TST Code (AS) 
BEQ.S Boucle] 
BSR GetTimer 
MOVE Code (A5), DO 
CMP1 4508,D0 
BEQ.S Recept ionBlocMac 
CHP1 4CAN,D0 
BNE.S e 
BSR AnnulationEmetteur 
BRA AbandonRe cept ionMac 
e3 Cp! #E0T, DO 
BEQ FinRecept iornMacData 
DifMac 
BSR CodeDifferent 
DifMac2 


AfficheAttenteBloc 





MOVE #NACK,— (SP) 
BSR EnvoiCode 
BRA.S Bouclel 
ReceptionB5locMac 
PEA cé 
BSR AfficheM] 
PEA NumeroBlocLettre (AS) 
_DrawString 
BSR LireBloc 
MOVE Code (AS}, DO 
BEQ.S VerificationBlocMac 
cm1 #CAN_A,D0 
BNE.S DifMac 
BSR AnnulationAbandon 
BRA AbandonRe cept icnMac 
VerificationBlocMac 
BSR VerificationBloc 
MOVE Code (AS), DO 
BEQ.S ei 
CMPI #D1F,D0 
BNE.S e2 
BSR AfficheAttenteBloc 
MOVE #ACK,- (SP) 
BSR EnvoiCode 
BRA Bouclel 
@2 CMPI  4#CAN_A,D0 
BNE Di fMac2 
BSR AnnulationAbandon 
BRA Abandonkecept ionMac 
@1 BsR DecodeBloc 
@3 BSR SPNiveauRecept ion 
BSR EcritBlocDisque 
BEQ.S @4 
RTS 
@4 SsuBQ #1, NombreBD (A5) 
BNE NumeroBlocMac 
FinReceptionMacData 
LEA TamponIO(AS) , A0 
MOVE.L TamponTemporaireF+ioFlLgLen(As), 
40LEOF (A0) 
_setEOF 
€1 BSR FermetureFichier 
C#P1 #EOT, Code (AS) 
BEQ FinRecept ionMacDat a2 
OuvertureRessource 
TST NombreBR (A5) 
BEQ FinRecept ionMacDat a2 
MOVEQ *#1,D0 
BSR OuvertureFichier 
BEQ.S NumeroBlocMacR 
RTS 
NumeroBlocMacR 
BSR ChangeNumercBloc 
AttenteBlocMacR 
BSR AfficheAttenteBloc 
MOVE #ACK,- (SP) 
BSR EnvoiCode 
BouclelR 
BSR TesteTimeOut 
BEQ.S ei 
BSR AnnulationAbandon 
BRA AbandonRe cept ionMac 
€1 BSR TesteAnnulerR 
TST Code {AS} 
BEQ.S e2 
BSR AnnulationUtilisateur 
BRA AbandonRecept ionMac 
@2 BSR AttenteLiaisonEmetteur 
TST Code (AS) 
BEQ.S BouclelR 
BSR GetTimer 
MOVE Code (AS5},D0 
CMPI #508, D0 
BEQ.S Recept ionBlocMacR 
CMP1I 4CAN, DO 
BNE.S a3 
BSR AnnulationEmetteur 
BRA AbandonkRecept ionMac 
e3 C1 #EOT, DO 
BEQ FinRecept ionMac 
Di fMacR 
BSR CodeDifferent 
Di fMac2R 
BSR AfficheAttenteBloc 
MOVE #NACK,- (SP) 
BSR EnvoiCode 
BRA.S BouclelR 
Recept ionBlocMacR 
PEA cé 
BSR AfficheM] 
PEA NumeroBlocLettre {AS} 
_Drawstring 
BSR LireBloc 
MOVE Code (AS},D0 
BEQ.S VerificationBlocMacR 
cmr1 4CAN_A,D0 
BNE.S Di fMacR 
BSR AnnulationAbandon 
BRA AbandonRe cept ionMac 
VerificationBlocMacR 
BSR VerificationBloc 
MOVE Code (AS) ,D0 
BEQ.S ei 
C1 #01F,D0 
BNE.S e2 
BSR AfficheAttenteBloc 
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MOVE +ACK,- (SP) 
BSR EnvoiCode 
BRA BouclelR 
e2 CMPI 4CAN_A,D0 
BNE Di fMac2R 
BSR AnnulationAbandon 
BRA AbandonRecept 1onMac 
€1 BSR DecodeBloc 
063 BSR SPNiveauRecept ion 
BSR EcritBlocDisque 
BEQ NumeroBlocMacR 
RTS 
FinReceptionMac 
LEA TamponiO(AS)},AO 
MOVE.L TamponTemporaireF+1oFlRLgLen (AS), 
40LEOF (A0) 
_SetEOF 
@1 BSR FermetureFichier 
FinReceptionMacDat a2 
MOVE #ACK,- (SP) 
BSR EnvoiCode 
PEA RectEffMess2 
_EraseRect 
PEA c8 
BSR AfficheM] 
BSR LirelnfoFichier 
BNE.S ei 
LEA TamponlO(AS}, AO 
MOVE TamponTemporaireF+ioFlUsrWds+ 
fdFlags (AS), DO 
ANDI #$2000,D0 
MOVE D0,1oFlUsrWds+fdFlags (A0) 
MOVE.L TamponTemporaireF+1oFlUsrWds+ 
£fdType (AS) ,10F 1UsrWds+fdType (A0) 
MOVE.L TamponTemporaireF+1oFlUsrWds+# 
fdCreator (AS), 10FlUsrWds+fdCreator (A0) 
CLR.L 1oFlUsrWäds+fdLocation(A0) 
CLR 10FlUsrWds+fdFldr (A0) 
_SetFileinfo 
BGE.S e1 
CLR (SP) 
BSR Erreur 
@1 BSR MiseJour Volume 
BSR Tempo 
RetourRecept ionMac 
RTS 
AbandonReceptionMac 
BSR FermetureFichier 
BSR RencamerFichier 
BSR MiseJourVolune 
BSR Tempo 
RTS 


Fichier ‘InterPom’s.Link 


Fichiers:InterPom's 
/Output Fichiers:InterPom's.Code 
{Type ‘TEMP' 


$ 


Fichier ‘InterPom's.R’ 


Fichiers:InterPom’s 
APPLTa?2m 


Type Ta2m = STR 
,0 
Pem's - InterPom’s Version 1.0 - Janvier 1987 


Type MENU 
ri 

\14 
*1A propos d'InterPom's.… 
{- 
12 

Fichier 
“2Texte seulement_/T 
f3Tout documents../O 
{= 
(Fermer 
l- 
"aQuitter/Q 
13 

Édition 
Annuler/2 
(= 
"SCouper/Xx 
"éCopier/C 
*IColler/V 
= 
Effacer 
4 

Mode 
I\12*8Réception/R 
“9Émission/E 


Type ALRT 
128 (4) 

82 72 178 440 

128 

5555 

Type DITL 
-128 (4) 

2 
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Button 

56 256 80 352 

CK 

SraticText 

16 64 48 352 

ul let to de | 

Type STR 
»1 (4) 

Erreur d'entrée/sortie. 
*2 (4) 


Fichier ouvert ou utilisé. Dupliquez-le pour l'envoyer. 


13 (4) 


Problème d'interface série. Impossible de continuer. 


4 (4) 
Le catalogue est saturé. Changez de volume. 


Type DLOG 
#1 (4) 

82 72 298 440 

Visible NoGoAway 

1 

û) 

1 


Type DITL 

#1 (4) 
13 
StaticText 
0 0 216 368 
\20 


Iconltem 
24 24 56 56 
257 


Iconltem 
168 312 200 344 
266 


StaticText 
12 72 28 352 
InterPom’s — V 1.0/Mac (protocole ALC} 


StaticText 
36 72 52 352 
© 1987 Pom’s/Éditions MEV 


StaticText 
52 72 68 352 
Jean-Luc Bazaneque et Christian Piard 


StaticText 
76 24 92 352 
“InterPom’s* permet la transmission de fichiers 


StaticText 
92 24 108 352 
_— ou applications — entre Macintosh, où entre 


StaticText 
108 24 124 352 
Apple]({TM et MacintoshTM, 


StaticText 
132 24 148 352 
Le mode d'emploi et les ‘sources’ (MDS 68000) se 


StaticText 
148 24 164 352 
trouvent dans le numéro 28 de “Pom’s". 


StaticText 
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Pom’ s/Ëditions MEV — 12, rue d'Anjou — 


StaticText 
188 24 204 296 
78000 Versailles — Tél. : (1) 39 S1 24 43. 


Type BNDL 
1128 (32) 
Ta2m 0 
ICN# 

0 128 
FREF 
0 128 


Type FREF 
128 (32) 
APPL © 


TYPE ICN# = GNRL 
128(32) 

2 

00000000 009000€0 00000140 00000280 
00000300 00007A78 0000FFAC 003DFD56 
0015FA8A 002DF546 O0O0SSFAB8A O0A1F546 
0140FA8C 0080F554 00307AA8 00503550 
00A01BAO 00C00CC0 1E9E0100 3FEB0280 
7F558500 7EA2AA00 7D51B400 7EA2A800 
7D518C00 3EA30000 3D550000 1EAA0000 
0D540000 06E80000 03300000 00000000 
* 

000001E0 000003E0 000007E0 000007E0 
000O0FFFC OOO1FFFE OO7FFFFF OO7FFFFF 
OO7FFFFF OOFFFFFF OlFFFFFF O3FFFFFF 
O3F3FFFF O3F9FFFE OlF9FFFE OlFS8FFFC 
01F87FF8 3FEF3FFO 1FFF9FEO FFFFCFCO 
FFFFFFCO FFFFFF80 FFFFFFOO FFFFFEOO 
FFFFFEOO FFFFFEOO 7FFF8000 7FFF8000 
3FFF0000 1FFE0000 OFFCO000 07F80000 


TYPE ICON = GNRL 

1257 (4) 
00000000 000000C0 00000140 00000280 
00000300 00007AÀ78 O0000FFAC 003DFD56 
0915FA8A 002DF546 O055FA8A OOA1F546 
0140FA8C O080F554 00307AA8 00503550 


0CA01BAO 00C00CC0 
7F558500 7EA2AA00 
7D51BC00 3EA30000 
0D540000 06E80000 
r258 (4) 
OFFF0000 08018000 
OB6EA000 OA6EA0OC 
B8002000 AB7FF800 
8854400C BBDBS80A 
885ED375 BBC04001 
8FDFSBFD B7C04001 
80SESBFD 80404001 
00405EDD 007FC001 
259 (4) 
OFFF0000 08018000 
OBFFA000 OBFFAO0O 
BBFFA000 ABFFF800 
8BD40F00 BBDB7700 
8BDE9040 BBC02020 
8FDF1404 B7C22802 
80S5F3E0F 8040880F 
00401040 007FF880 


260 (4) 
OFFFFFFO 10000008 
1668F468 16DSEAES 
165SEAE8 17FFFFE8 
17949CE8 17948E68 
173988E8 17FFFFES 
10000008 10000008 
10000008 10000008 
08000010 0A000050 

1261 (4) 
00000010 00000028 
00000110 00000230 
00001040 00002080 
00018200 00034400 
001A1000 00351000 
03FA4000 1EFC8000 
3C7A0000 1E3C0000 
01F00000 00E00000 

1262 (4) 
00007FFF 00014001 
00004001 00105FBD 
00005D7D 01005D7D 
0001578D 10804001 
00000000 FFFE1088 
BDDA0000 80020880 
80024000 BAFA0800 
AF7A0000 AF7A8000 


263 (4) 
00000000 00000004 
00000038 000030D0 
0000D740 0001AB80 
000D54E0 000E1960 
00F24A00 01E91400 
3D14C000 7A498000 
364A0000 1B140000 
02700000 01300000 


1264 (4) 
00000000 000000C0 
00000300 0000778 
0001FA8A 0001F546 
0000FA8C 0000F554 
40F0r021 81FFF812 
71E36C7E4 04000208 
0836C110 06000108 
180001D0 17FFFEAO 


265 (4) 
O0FFFFFO 0300000€ 
O0FE8017F 083000C1 
00436C20 00800010 
01036C08 0100000E 
00A00011 O0FFFFE6 
7F558060 7EA2AA80 
70518000 3EA30000 
0D540000 06E80000 


266 (4) 
00000000 00000050 
000008AA 00000155 
00002A02 00004514 
000228A0 00051440 
0028A2A0 00545140 
00A2FFD6 1451FEAB 
A20AFD45 5100FAA3 
0A003D54 05001AA8 


1267 (4) 
1FFFFF70 AAB281A8 
DDD4F156 AAAOFIAA 
DD80F156 AASO0FIAA 
DS555556 AAAAAAAR 
D8000036 ABFFFFAA 
D8000036 A99530AA 
D8954BB6 ABOB34AA 
D8000036 ABFFFFAA 

268 (4} 
00000000 00000000 
00000000 00000000 
00000000 00000000 
00000000 1FFFFFFO 
DSSS55556 AAAAAAAA 
DS555556 AFFFEAAA 
DB6DB556 ABEDAAAA 
D8003636 AFFFEBEA 


INCLUDE Fichier 





1E9E0100 
72518400 
3D550000 
03300000 


08014000 
F8002000 
B8400C00 
8853$40F 
885BDBED 
8057DDDD 
FFCFDEFD 
00004001 


0BFF4000 
F8002000 
B8400C00 
88537500 
8BDBCS5 10 
80544781 
FFCFCTFF 
00000500 


13FFFFCS 
1645E2E8 
1799868 
1794968 
13FFFFC8 
100001C8 
10000008 
08000010 


00000054 
00000420 
00004100 
00068400 
00EA2000 
3cD90000 
07380000 
00c00000 


00005EED 
00005FBD 
00104001 
00007FFF 
80020000 
BF7A0000 
BAFA0000 
80020000 


0000000E 
00007920 
00035180 
001D8AC0 
07552800 
FD230000 
0DAC0000 
00100000 


00000140 
0000FFAC 
0001FA8A 
OFFFFFAB 
FE8017F4 
0436C204 
103 6C0 90 
08000100 


040F0F02 
07E36C7E 
00836C10 
01800019 
1E9E0004 
7D51D500 
30550000 
03300000 


00000080 
000000AA 
0000A280 
00028A00 
00822980 
2A28FD45 
2A007D46 
02800DD0 


DD350154 
DDCOF156 
DD800156 
DS5555556 
D8000036 
DA1548B6 
D84004B6 
D8000036 


00000000 
00000000 
00000000 
3FFFFFF8 
D5555556 
D8003556 
DB6DB556 
D5555556 


3FEB0280 
TEA2A8 00 
1EAACO0OO 
00000000 


0A81E000 
8BF7A000 
ABD87FF8 
BACOSB75 
B8404001 
BECO04001 
00404001 
00007FFF 


03FFE000 
8BFFA000 
ABD80A00 
BBCO0880 
B8408A08 
BEC2087F 
0040202F 
00000200 


17FFFFES 
16D5EAES 
179494E8 
16949E68 
10000008 
1200FFC8 
OFFFFFFO 
07FFFFEO 


0000008 
00000840 
0000C100 
000D0800 
01r44000 
3CFD0000 
03B80000 
00800000 


00045EED 
00424001 
040057BD 
42080002 
BDDA4020 
BF7A0200 
80022000 
FFFE0000 


0000001€ 
0000FEAO 
0006A0C0 
0039E580 
0EB67000 
6c950000 
04080000 
00400000 


00000280 
0001FD56 
0001F546 
3000006 
83000c12 
08000108 
10000088 
07FFFEO0 


O81FFF81 
00400020 
00800010 
015FFFEA 
3FEB0018 
7EA28000 
1EAA0000 
00000000 


00091100 
00001401 
00015140 
00014560 
00453D7C 
4515FAA3 
14007AAA 
01000660 


AAAAF]AA 
AA8CF1AA 
AFFFFEAA 
AFFFFFEA 
ABFFFFAA 
A91548AA 
A84003AA 
TFFFFFEC 


00000000 
00000000 
00000000 
TFFFFFFC 
AAARRAAA 
AB6F2AAA 
AB6F2BEA 
7EFFFFFC 
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Scrollings en HGR 


Roland Jost 


Après les effets de miroir de 


JANUS (Pom's 25), nous vous. 


proposons ici de réaliser des 
défilements (‘scrolling’), verti- 
caux ou horizontaux, de la totalité 
de l'écran HGR ou simplement 
d'une partie de celui-ci. 


Ce programme n'est pas le 
premier du genre : dans les 
premiers numéros de Pom's, 
Jean-François Duvivier réalisait 
un dédoublement d'écran. 
HAIFA (Pom's 5) et ICARE 
(Pom's 14 ) comportent aussi un 
module de ‘scrolling’. Dans le 
numéro 21 de Pom's Patrick 
Quettier proposait un programme 
de défilement graphique, dans un 
sens seulement. Pour ne pas 
oublier la littérature étrangère, 
citons HI-RES FULL SCROLL 
dans CALL APPLE #V,(2)-1982 
et surtout HIRES.HOUDINI 
(NIBBLE #V(10), 1984). Enfin, 
certains génériques de jeux ou de 
logiciels graphiques utilisent des 
effets de défilement. 

Il fallait donc apporter un ‘plus’ 
par rapport aux programmes 
existants. Nous pensons que 
c'est le cas de SCROLLINGS. 


Les possibilités 
de SCROLLINGS 


* déroulement de l'écran HGR 
dans les 4 directions (gauche, 
droite, haut, bas) ; 


+ 3 modes possibles : 


— vider l'écran de manière 
progressive ; 

- obtenir un déroulement 
continu en entrant d'un côté de 
l'écran ce qui disparaît de 
l'autre ; 

— ‘scrolling’ sur deux pages, 
la page 2 venant combler la 
page 1. Dans ce cas, le contenu 
de la page 1 est perdu ; 


+ l'ampleur du mouvement peut 
être définie ; 

+ le déroulement.peut se faire sur 
tout l'écran ou seulement dans 
une fenêtre définissable par 
l'utilisateur. Dans cette fenêtre, 
on peut faire défiler le contenu 
d'une page entière. 


Le scrolling peut être stoppé 
temporairement (appui sur la 
touche <espace>) ou interrompu, 
avec reprise du cours normal du 
programme Basic appelant 
(touche <ESC>). 


Quelques 
explications 


Le principe du déroulement 
d'écran est simple : dans le sens 
vertical, pour obtenir le déplace- 
ment d'une ligne vers le haut, il 
suffit de copier chaque ligne de 
280 points (40 octets) dans la 
ligne précédente. On pourra 
mettre des zéros dans la dernière 
ligne (191) pour obtenir un 
‘scrolling simple’ avec vidage de 
l'écran. Si l'on a pris la 
précaution de sauver la ligne du 
haut (ligne O) , on peut la recopier 
dans celle du bas et obtenir un 
scrolling en continu. Enfin, on 
peut recopier une ligne d'une 
autre page dans la ligne du bas et 
réaliser ainsi un ‘scrolling’ sur 
deux pages. 


En répétant n fois la manœuvre, 
le déplacement sera plus ou 
moins important. Pour N=192, 
on opère sur toute la page. 


De même, pour un ‘scrolling” 
latéral, on opère sur les 40 
colonnes de 192 octets de l'écran 
HGR. 


On peut définir une fenêtre en ne 
travaillant que sur nx colonnes et 


ny lignes. 





Le programme SCROLLINGS 
est loin d'être optimisé. Il se 
compose de 4 modules permettant 
chacun le défilement dans une 
direction. La construction des 
différents modules est similaire et 
on y retrouve des groupes 
d'instructions identiques qui 
auraient pu être mises en 
sous-programmes communs. 
Mais le lecteur pourra ainsi, s'il le 
désire, ne prendre que le module 
nécessaire à ses besoins. 


Occupation 
de la mémoire 


SCROLLINGS est chargé à 
l'adresse 37376 ($9200) et doit 
être protégé à partir du Basic par 
HIMEM:36864. 


$9000: table des octets bas des 
adresses des 192 lignes de la 
page graphique 1. 

$90C0: table des octets de poids 
fort. 

$9180: stockage provisoire. 

$9200: SCROLLINGS. 

$94A3: fin du programme. 


Utiliser 
SCROLLINGS 


CALL 37376,Direction, 


Type, Amplitude, 
X, XL, YL 


Direction = G, D, H, B. 
Type = 0 : scrolling simple ; 
1 : scrolling continu ; 
2 : scrolling de la page 2 
dans la page 1. 
Amplitude : de 0 à 255. 


X,Y : coordonnées du point 
supérieur gauche de la fenêtre : 
0 <= X <= X1 
O0 <= Y <= Y1 
X1,Y1 : coordonnées du coin 
inférieur droit : 
X <= X1 <= 39 
Y <= Y1 <= 191 


graphiques. 


G 
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Programme 
‘UTIL-SCROLLINGS’ 


REM * 


1000 
1010 
1020 


1030 


1040 
1050 
1060 
1070 


© © + Oo OU W N Ha 
= 


RLARÉHARARAAAAAAALAHX EX 


* UTIL-SCROLLINGS 


* 
* 
* R.JOST 1986 a 
* UTILISE 3 
% SCROLLINGS.OBJO * 
x TABLES .HGR.OBJO * 
* * 


RHÉHAEEHAALAAARAAEARAX 


3000 : 


3010 


3020 : 


3030 


3040 


3050 


3060 


3070 


3080 


3090 


3100 


3110 


3120 


3130 


3140 


3150 


3160 


3170 


4000 : 


4010 


4020 : 


ADR = 37376: HIMEM: 36864 

G$ = CHR$ (7):D$ = CHRS$ (4) 

PRINT CHR$ (4)"BLOAD TABLES.HGR.OBJ 
0" 

PRINT CHR$ (4)"BLOAD SCROLLINGS.OBJ 
0" 
X = O:X1 = 39:Y = O:Y1 = 191 
MODE = 0 

GOSUB 8010: GET R$: PRINT R$ 

GOSUB 5010 

REM  COMMANDES 

WAIT - 16384,128,127:R = ,PEEK ( - 
16384) - 128: POKE - 16368,0 

IF R = 83 THEN GOSUB 7010: GOTO 303 
0: REM S)AUVE LA PAGE 1 

IF R = 76 THEN GOSUB 6010: GOTO 303 
0 - REM L)OADPAGEIOU2 

IF R = 48 THEN MODE = 0: GOTO 3030: 
REM 0 

IF R = 49 THEN MODE = l: GOTO 3030: 
REM 1 

IF R = 50 THEN MODE = 2: GOTO 3030: 
REM 2 

IF R = 77 THEN GOSUB 4030: GOTO 303 
0: REM M)ODIFIE LA FENETRE 

IF R = 78 THEN X = O0:Y = O:X1 = 39:Y 


1 = 191: GOTO 3030: REM FENETRE N)ORM 
ALE 

IF R = 73 THEN GOSUB 8010: GOTO 303 
0: REM I)NSTRUCTIONS 

IF R = 11 THEN CALL ADR, H, MODE, 192, 
X,Y,X1,Y1: GOTO 3030: REM FLECHE HAUT 
E OU CTRL-K 

IF R = 10 THEN CALL ADR,B, MODE, 192, 
X,Y,X1,Y1: GOTO 3030: REM FLECHE BASS 
E OU CTRL-J 

IF R = 8 THEN CALL ADR, G,MODE, 39,X, 
Y,X1,Y1: GOTO 3030: REM FLECHE GAUCHE 


IF R = 21 THEN CALL ADR, D, MODE, 39,X 
:Y, X1,Y1: GOTO 3030: REM FLECHE DROIT 
E 


IF R = 81 THEN TEXT : END : REM QUI 
TTER 
GOTO 3030 


REM MODIFICATION DE LA FENETRE 
REM 


4030 


4040 


4050 


4060 


4070 


4080 


4090 


4100 


4110 


4120 


4130 


4140 
4150 


5000 : 


5010 


TEXT : HOME : PRINT "MODIFICATION DE 
LA FENETRE": PRINT 

ATAB l: VTAB 5: PRINT "COORDONNEES D 
U COIN SUPERIEUR GAUCHE:" 

HTAB 1: VTAB 7: PRINT "X ";:2H = PE 
EK (36) + 1: PRINT X;: HTAB ZH: VTAB 


7: INEUT "MpeXSs TE XS.< > * THEN X 


= VAL (X$) 

IF X < O0OR X > 39 THEN PRINT G$: G 
OTO 4050 

HTAB 1: VTAB 8: PRINT "Y ";:2H = PE 


EK (36) + l: PRINT Y;: HTAB ZH: VTAB 
Das TNPUT NN VS ATA.YS < > "" THEN Y 


= VAL (Y$) 

IF Y < O0 OR Y > 191 THEN PRINT G$: 
GOTO 4070 

HTAB l: VTAB 10: PRINT "COORDONNEES 
DU COIN INFERIEUR DROIT:" 

HTAB:1: VTAB 11: PRINT "XI Mes:2H)= 


PEEK (36) + 1: PRINT X1;: HTAB ZH: VT 
AD. 11: INPUT: Me XLS STE AISNE > Me UT 
HEN X1 = VAL (X1$) 
IPXI > SJ:OR XI << 
G$: GOTO 4100 

HTAB 1: VTAB 12: PRINT "Y1 ";:ZH = 
PEEK (36) + l: PRINT Yl;: HTAB ZH: VT 
AD) 122%) INPUT P'ÉVISe TR VIS. 5 MN 
HEN Y1 = VAL (Y1$) 

TP YU S LIT OR FI € = 
G$: GOTO 4120 

GOSUB 5030 

RETURN 


= X THEN PRINT 


Y THEN PRINT 


REM AFFICHAGE PAGE HGR SANS EFFACEM 
ENT 


5020 : 


5030 


6000 
6010 


6020 : 


6030 
6040 
6050 


6060 


6070 


6080 


6090 
6100 


6110 


6120 
6130 


6140 


7000 : 


7010 


Z = PEEK (49232) + PEEK (49234) + 
PEEK (49236) + PEEK (49239): RETURN 


REM CHARGEMENT D'UNE PAGE GRAPHIQUE 


Z$ = vin 

TEXT : HOME 

PRINT "CHARGEMENT EN PAGE ";:PH = P 
EEK (36) + 1:PV = PEEK (37) + l: PRI 
NT Z$: HTAB PH: VTAB PV: GET Z$ 

IF VAL (Z$) = O0 THEN 2$ = “l" 

TE (29 2 MZ AND: 76 € k$x MT) THE 
N 6040 
AD$ = ",A$" + STR$ (2 * 
"000" 

PRINT Z$: PRINT 

INPUT "IMAGE À CHARGER ";N$: IF N$ = 
"# THEN RETURN 

IF N$ = "?" THEN PRINT CHR$ (13); 
CHR$ (4) "CATALOG": GOTO 6100 
EE = l: ONERR GOTO 9010 
PRINT CHR$ (13); CHR$ (4)"B 

LOAD "NS + AD$ 

GOSUB 5030: RETURN 


VAL (Z$)) + 


REM SAUVEGARDE D'UNE IMAGE 
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7020 : 
7030 


7040 


7050 
7060 


7070 
8000 
8010 


8020 : 


8030 
8040 


8050 


8060 


8070 


8080 


8090 


8100 


TEXT : HOME : PRINT "SAUVEGARDE DE L 
À PAGE l'": PRINT 

INPUT "NOM ";N$: IF N$ = "" THEN 707 
0 


EE = 2: ONERR GOTO 9010 
PRINT CHR$ (13); CHR$ (4)"BSAVE "NS 
",AS$2000,L$1FF8" 


GOSUB 5030: RETURN 

REM AFFICHAGE INSTRUCTIONS 

TEXT : HOME 

INVERSE : PRINT " SCROLLINGS - R 
.JOST (C) 1985 “: NORMAL 

PRINT " SCROLLING DANS LES 4 DIRECTI 
ONS PAR LES FLECHES " 


PRINT " (SUR LE II+ , UTILISER LES 2 
FLECHES, CTRL-J ET CTRL-K.)": PRIN 
sé 

PRINT " O0 : SCROLLING NORMAL ": PRIN 
T "“ 1 : SCROLLING 'PERPETUEL'": PRINT 
" 2 : PAGE 2 DANS PAGE l'": PRINT 
PRINT " L : CHARGEMENT D'UNE IMAGE E 

N PAGES T'ETV2" 

PRINT " M : MODIFIER LA FENETRE ": P 

RINT 

PRINT " N : RETOUR À LA FENETRE STAN 

DARD" 


8110 PRINT " Q : QUITTER LE PROGRAMME" 
8120 PRINT " S : SAUVEGARDE DE LA PAGE l" 
8130 PRINT " I : AFFICHER LES INSTRUCTION 


S*: PRINT 

8140 PRINT " <ESPACE> POUR FAIRE UNE PAUS 
E " 

8150 PRINT " <ESC> POUR STOPPER LE SCROLL 
ING" 


8160 HTAB l: VTAB 23: PRINT "TAPER <RETUR 
N> POUR CONTINUER ";: GET Z$ 

8170 GOSUB 5030 

8180 RETURN 

9000 : 

9010 REM TRAITEMENT ERREURS 

9020 : 

9030 TEXT : HOME 

9040 ER = PEEK (222) 

9050 IF ER = 6 THEN PRINT "CE FICHIER N' 
EXISTE PAS": GOTO 9090 

9060 IF (ER = 4 OR ER = 9) THEN PRINT "D 
ISK REMPLI OU PROTEGE": GOTO 9090 

9070 IF ER = 8 THEN PRINT "ERREUR I/0O - 
ARRET DU PROGRAMME " 

9080 POKE 216,0: END 

9090 POKE 216,0: GET R$ 

9100 IF EE = 1 THEN R = 76: GOTO 3040 

9110 IF EE = 2 THEN R 83: GOTO 3040 

9120 END 





Source ‘SCROLLINGS’ 


Assembleur ToolKit 


© © + Où Un à Qy MN ba 


+ 
Let] 
me AO Æ $C nn A À SUR UN EURE AUS OR HUE 


32 AR 


R.JOST 1985 


SCROLLINGS 


CALL 37376, DIRECTION, MODE, N,X,Y,X1, Y1 


DIRECTION = G)AUCHE, D)ROITE, H)AUT, B)AS 


MODE = O0 -> DEFILEMENT SIMPLE 
MODE = 2 -> RECOPIE PAGE2->PAGE1 
MODE = 1 -> SCROLLING CONTINU 


N = AMPLITUDE DU DEPLACEMENT 
N>0 ET N<=192 
X,Y ET X1,Y1 DEFINISSENT LA FENETRE 


EN COURS DE SCROLLING 


<ESC> PERMET DE REVENIR AU PROGRAMME BASIC À 
PPELANT 

<SPACE> PERMET UN ARRET TEMPORAIRE 

REPRISE PAR FRAPPE D'UNE TOUCHE 


EQU $06 
EQU $07 
EQU $08 
31 DEPART EQU $18 
RIVEE EQU $lA 


33 TAMPON EQU $1C 
34 ARR2 EQU $I1E 


35 X1 EQU $EB 
36 X2 EQU $EC 
À AA à EQU $ED 
38 Y2 EQU $EE 


39 MODE EQU $EF 
40 BUFFER EQU $FA 


41 CHRGET EQU $00B1 A 

42 CHKCOM EQU S$SDEBE ; teste la virgule 

43 GETBYTC EQU $E6F5 ; saisie d'une valeur 

44 * 

45 TAB1L EQU $9000 ; TABLE ADRESSES (OCTET 
S BAS) 

46 TAB1H EQU $90C0 ; TABLE ADRESSES (OCTET 
S HAUTS - PAGE 1) 

47 * 

48 KBD EQU $C000 ; TESTE LE CLAVIER 

49 KBDSTRB EQU $C010 ; STROBE 

50 NEWSTT EQU $D7D2 ; RETOUR AU BASIC À L'I 
NSTRUCTION QUI SUIT 

51 KBDWAIT EQU $FB88 ; ATTENTE TOUCHE 

52 * ; 

53 # 

54 * 

55 ORG $9200 

56 * 

57 * 

58 * 


59 * Saisie de la direction du mouvement 
60 * et dispatching vers les différents modules 
(7 NE 


62 JSR CHKCOM 

63 CMP #$47 : Gauche ? 
64 BNE OP2 

65 JMP  LATERAL 

66 OP2 CMP #$44 : Droite ? 
67 BNE OP3 
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68 JMP  LATERAL 140 BNE BOUCFI2 


69 OP3 CMP #$42 ; B)as 141 LDY X1 
70 BNE OP4 142 BOUCF1 STA (DEPART),Y ; scrolling simple 
FL JMP BAS 143 INY 
72 OP4 CMP #$48 ; H)aut 144 CPY  X2 
73 BNE OP5 145 BNE BOUCF1 
74 JMP HAUT 146 DEC N 
75 0P5 RTS 147 SCROUP BNE SCROLLUP 
76 * 148 RTS 
77 * Scrolling vers le HAUT 149 BOUCFI2 CMP #02 
78 * 150 BNE BOUCFI3 
79 HAUT JSR CHRGET ; saisie des paramètres 191 LDX C3 ; page 2 -> page 1 
80 JSR GETBYTC 152 LDA TABIL,X 
81 STX MODE 153 STA TAMPON 
82 JSR GETBYTC 154 LDA TABIH,X 
83 STX SN 155 CLC 
84 USR GETBYTC 156 ADC #$20 
: 85 STX X1 157 STA TAMPON+1 
86 JSR GETBYTC 158 INC C3 
87 SIX 11 159 LDY X1 
88 JSR GETBYTC 160 BOUCF2 LDA (TAMPON),Y 
| 89 INX 161 STA  (ARR2),Y 
90 STX X2 162 INY 
91 JSR GETBYTC 163 CPY X2 
92 STX °Y2 164 BNE BOUCF2 
93 LDA #$00 165 DEC N 
94 STA, :C3 166 BNE SCROLLUP 
95 LDA #$80 167 RTS 
96 STA BUFFER 168 BOUCFI3 LDY X1 ; scrolling continu 
97 LDA #$91 169 BOUCF3 LDA (BUFFER) , Y 
98 STA BUFFER+1 170 STA  (ARR2),Y 
99 LDX Y2 ; adresse de la dernièr 171 INY 
100 LDA TABIL,X e ligne 172 CPY X2 
101 STA ARR2 173 BNE BOUCF3 
102 LDA TABIH,X 174 DEC N 
103 STA ARR2+1 175 BEQ FIN 
104 SCROLLUP JSR TEST 176 BNE SCROUP 
105 LDX Y1 177 FIN RTS 
106 STX C2 178 * 
107 LDA TABIL,X ; adresse de la ligne e 1730 
n cours 180 *Scrolling vers le BAS 
108 STA ARRIVEE 181 * 
109 LDA TABIH,X 182% 
110 STA ARRIVEE+1 183 BAS JSR CHRGET ; saisie des paramètres 
D EL DDY: 1 184 JSR GETBYTC 
112 BE LDA  (ARRIVEE),Y 185 STX MODE 
1123 STA (BUFFER),Y ; stockage temporaire 186 JSR GETBYTC 
114 INY 187 STX N 
1135 CEY «Xe 188 JSR GETBYTC 
116 BNE BE 189 STX' XL 
117 BOUCLEI LDX C2 190 JSR GETBYTC 
118 LDA TABIL,X 191 STX. YZ 
119 STA ARRIVEE 192 JSR GETBYTC 
120 LDA TABIH,X 193 INX 
121 STA ARRIVEE+1 194 STX X2 
122 INX 195 JSR GETBYTC 
123 LDA TABIL,X 196 STX Y1 
124 STA DEPART 197 LDA #191 
: 12 LDA TABIH,X 198 STA C3 
126 STA DEPART+1 199 LDA #00 
127 LDY: X1 200 STA BUFFER 
128 BOUCLE2 LDA (DEPART),Y ; on balaye la ligne e 201 LDA #$60 
n cours 202 STA BUFFER+1 
| 129 STA (ARRIVEE),Y 203 LDX Y2 
130 INY 204 LDA TABIL,X 
131 CBY .X2 205 STA ARR2 
132 BNE BOUCLE2 206 LDA TABI1H,X 
133 STX C2 207 STA ARR2+1 
134 CPX °Y2 208 SCROLLDW JSR TEST 
135 BNE BOUCLE1 203 LDX Y1 
136 * 210 SEX C2 
137 * Que faire de la dernière ligne ? 211 LDA TABIL,X 
138 * 212 STA ARRIVEE 
139 LDA MODE 213 LDA TABI1H,X 
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214 


219 

216 
217 
218 
219 
220 
221 

222 
223 
224 
223 
226 
227 
228 
229 
230 
231 

232 
233 
234 
235 
236 
237 
238 
239 
240 

241 

242 

243 
244 

245 
246 
247 
248 

249 
250 
251 

252 
253 
254 
255 
256 
257 
258 
259 
260 
261 

262 
263 
264 
265 
266 
267 
268 
269 
270 
271 

272 
PAS) 
274 
275 
276 
277 
278 
279 
280 
281 

282 
283 
284 
285 
286 
287 


STA 


LDY 
LDA 
STA 
INY 
CPY 
BNE 
LDX 
LDA 
STA 
LDA 
STA 
DEX 
LDA 
STA 
LDA 
STA 
LDY 
BOUCDW2 LDA 

STA 

INY 

CPY 

BNE 

STX 

CPX 

BNE 


BEDW 


BOUCDWI1 


* 


* Que faire 
* 

LDA 
BNE 
LDY 
STA 
INY 
CPY 
BNE 
DEC 
BNE 
RTS 
BOUDWI2 CMP 
BNE 
LDX 
LDA 
STA 
LDA 
CLC 
ADC 
STA 
DEC 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
DEC 
BNE 
RTS 
BOUDWI3 LDY 
BOUDW3  LDA 
STA 
INY 
CPY 
BNE 
DEC 
BEQ 
BNE 
RTS 


BOUDW1 


SCRODW 


BOUDW2 


FINI 


ARRIVEE+1 
X1 

(ARRIVEE) , Y 
(BUFFER) , Y 


X2 

BEDW 

C2 

TAB1L, X 
ARRIVEE 
TAB1H,X 
ARRIVEE+1 


TABI1L,X 
DEPART 
TAB1H,X 
DEPART+1 

X1 

(DEPART) ,Y 
(ARRIVEE) ,Y 


X2 
BOUCDW2 
C2 
yY2 
BOUCDW1 


de la dernière ligne ? 


MODE 

BOUDWI 2 

X1 ; 
(DEPART) ,Y 


scrolling simple 


X2 

BOUDW1 

N 
SCROLLDW 


#02 

BOUDWI 3 

C3 ; page 2 -> page 1 
TAB1L,X 

TAMPON 

TAB1H, X 


#$20 
TAMPON+1 
C3 

X1 

(TAMPON) ,Y 
(ARR2) ,Y 


X2 
BOUDW2 

N 
SCROLLDW 


X1 î 
(BUFFER) , Y 
(ARR2),Y 


scrolling continu 


X2 
BOUDW3 
N 

FINI 
SCRODW 


*Scrolling LATERAL 


* 


* 


LATERAL STA 


$09 


288 JSR 
289 JSR 
290 STX 
291 JSR 
292 STX 
293 JSR 
294 STX 
295 JSR 
296 DEX 
297 STX 
298 JSR 
299 STX 
300 JSR 
301 STX 
302 LDA 
.303 CMP 
304 BEQ 
305 * 


306 * Scrolling 
307 * 


308 LDX 
309 STX 
310 DEBUT LDX 
311 DEBUT2 LDA 
312 STA 
313 STA 
314 LDA 
315 STA 
316 CLC 
317 ADC 
318 STA 
319 LDY 
320 LDA 
321 BNE 
322 PHA 
323 JMP 
324 MODE1 CMP 
325 BNE 
326 LDA 
327 PHA 
328 JMP 
329 MODE2 CMP 
330 BNE 
331 LDY 
332 LDA 
333 PHA 
334 LDY 
335 JMP 
336 MODE3 NOP 
337 SRCLIG DEY 
338 LDA 
339 INY 
340 STA 
341 DEY 
342 CPY 
343 BNE 
344 PLA 
345 STA 
346 DEX 
347 CPX 
348 BNE 
349 JSR 
350 DEC 
351 DEC 
352 LDA 
353 CMP 
354 BNE 
355 RTS 
3901 


357 * Scrolling 
358 * 

359 SCRLEFT LDX 
360 STX 
361 DEBLFT LDX 





CHRGET ; saisie des paramètres 
GETBYTC 

MODE 

GETBYTC 

N 

GETBYTC 

X1 

GETBYTC 


Y1 

GETBYTC 

X2 

GETBYTC 

Y2 

$09 ; 
#547 
SCRLEFT 


à droite ou à gauche? 


à DROITE 


#39 

63 

Y2 ; dernière ligne 
TAB1L, X 

DEPART 

ARR2 

TAB1H, X 

DEPART+1 


#520 
ARR2+1 
X2 
MODE 
MODE1 


SRCLIG 

#01 

MODE2 
(DEPART), Y 


SRCLIG 
#02 

MODE3 

C3 
(ARR2),Y 


X2 

SRCLIG 
(DEPART) ,Y 
(DEPART) ,Y 


X1 
SRCLIG 


(DEPART) ,Y 


Y1 
DEBUT2 
TEST 
C3 


GAUCHE 


#00 
C3 


yY2 ; derniere ligne 
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362 DEBLFT2 LDA TABIL,X 392 INY 








363 STA DEPART 393 CPY X2 
364 STA ARR2 394 BNE SRCLG 
365 LDA TABIH,X 395 PLA 
366 STA DEPART+1 396 STA (DEPART),Y 
367 CLC 397 DEX 
368 ADC #$20 398 CPX Y1 
369 STA ARR2+1 399 BNE DEBLFT2 
370 LDY X1 400 JSR TEST 
371 LDA MODE 401 INC C3 
372 BNE CHXI 402 DEC N 
373 PHA 403 LDA N 
374 UMP SRCLG 404 CMP #$FF 
375 CHX1 CMP #01 405 BNE DEBLFT 
376 BNE CHX2 406 RTS 
377 LDA (DEPART),Y 407 * 
378 PHA 408 * Arret du scrolling par frappe d'une touche 
379 JMP  SRCLG 409 * 
; 380 CHX2 CMP #02 410 TEST LDA KBD 
381 BNE CHX3 411 BIT KBDSTRB 
382 LDY C3 412 CMP #$9B ; <ESC> interrompt le s 
383 LDA (ARR2),Y crolling 
) 384 PHA 413 BNE SPACE 
385 LDY X1 414 JUMP NEWSTT ; retour au programme B 
386 JMP  SRCLG ASIC appelant 
387 CHX3 NOP 415 SPACE CMP #$A0 ; <ESPACE> fait une pau 
388 SRCLG  INY : se 
389 LDA  (DEPART),Y 416 BNE CONT 
390 DEY 417 JSR KBDWAIT ; attente d'une touche 
391 STA (DEPART),Y 418 CONT RTS 
Table 90E8- 22 26 2A 2E 32 36 3A 3E 9240- 86 EE A9 00 85 08 A9 80 
£ 90F0- 23 27 2B 2F 33 37 3B 3F 9248- 85 FA A9 91 85 FB A6 EE 
TABLES.HGR. 90F8- 23 27 2B 2F 33 37 3B 3F 9250- BD 00 90 85 1E BD CO 90 
OBJ 9100- 20 24 28 2C 30 34 38 3C 9258- 85 1F 20 8E 94 A6 ED 86 
9108- 20 24 28 2C 30 34 38 3C 9260- 07 BD 00 90 85 1A BD CO 
Après avoir saisi cette table sous 9110- 21 25 29 2D 31 35 39 3D 9268- 90 85 1B A4 EB B1l lA 91 
moniteur, vous la sauvegarderez par 9118- 21 25 29 2D 31 35 39 3D 9270- FA C8 C4 EC DO F7 A6 07 
BSAVE TABLES.HGR.OBJ,A$9000,  9120- 22 26 2A 2E 32 36 3A 3E 9278- BD 00 90 85 1A BD CO 90 
L$180 9128- 22 26 2A 2E 32 36 3A 3E 9280- 85 1B E8 BD 00 90 85 18 
9000- 00 00 00 00 00 00 00 00 9130- 23 27 2B 2F 33 37 3B 3F 9288- BD CO 90 85 19 A4 EB B1 
9008- 80 80 80 80 80 80 80 80 9138- 23 27 2B 2F 33 37 3B 3F 9290- 18 91 1A C8 C4 EC DO F7 
9010- 00 00 00 00 00 00 00 00 9140- 20 24 28 2C 30 34 38 3C 9298- 86 07 E4 EE DO D8 A5 EF 
9018- 80 80 80 80 80 80 80 80 9148- 20 24 28 2C 30 34 38 3C 92A0- DO 0E A4 EB 91 18 C8 C4 
9020- 00 00 00 00 00 00 00 00 9150- 21 25 29 2D 31 35 39 3D 92A8- EC DO F9 C6 06 DO AB 60 
9028- 80 80 80 80 80 80 80 80 9158- 21 25 29 2D 31 35 39 3D 92B0- C9 02 DO 21 A6 08 BD 00 
9030- 00 00 00 00 00 00 00 00 9160- 22 26 2A 2E 32 36 3A 3E 92B8- 90 85 1C BD CO 90 18 69 
9038- 80 80 80 80 80 80 80 80 9168- 22 26 2A 2E 32 36 3A 3E 92C0- 20 85 1D E6 08 A4 EB B1 
9040- 28 28 28 28 28 28 28 28 9170- 23 27 2B 2F 33 37 3B 3F 92C8- 1C 91 1E C8 C4 EC DO F7 
9048- A8 A8 A8 A8 A8 A8 A8 A8 9178- 23 27 2B 2F 33 37 3B 3F 92D0- C6 06 DO 86 60 A4 EB B1 
9050- 28 28 28 28 28 28 28 28 92D8- FA 91 lE C8 C4 EC DO F7 
9058- A8 A8 A8 A8 A8 A8 A8 A8 = F 7 92E0- C6 06 FO 02 DO C7 60 20 
| 2060- 28 28 28 28 28 28 28 28 Récapitulation 92E8- B1 00 20 F5 E6 86 EF 20 
9068- A8 A8 A8 A8 A8 A8 A8 A8 £ 92F0- F5 E6 86 06 20 F5 E6 86 
| 9070- 28 28 28 28 28 28 28 28 SCROLLINGS. 92F8- EB 20 F5 E6 86 EE 20 F5 
: 9078- A8 A8 A8 A8 A8 A8 A8 A8 OBJ0’ 9300- E6 E8 86 EC 20 F5 E6 86 
9080- 50 50 50 50 50 50 50 50 9308- ED A9 BF 85 08 A9 00 85 
9088- DO DO DO DO DO DO DO DO Après avoir saisi ce code sous 9310- FA A9 60 85 FB A6 EE BD 
| 9090- 50 50 50 50 50 50 50 50 moniteur, vous le sauvegarderez par 9318- 00 90 85 1E BD CO 90 85 
.: 9098- DO DO DO DO DO DO DO DO BSAVE SCROLLINGS.OBJ0,A$9200, 9320- 1F 20 8E 94 A6 ED 86 07 
90A0- 50 50 50 50 50 50 50 50 L$2A3. 9328- BD 00 90 85 1A BD CO 90 
90A8- DO DO DO DO DO DO DO DO 9200- 20 BE DE C9 47 DO 03 4C 9330- 85 1B A4 EB B1 1A 91 FA 
90B0- 50 50 50 50 50 50 50 50 9208- AE 93 C9 44 DO 03 4C AE 9338- C8 C4 EC DO F7 A6 07 BD 
90B8- DO DO DO DO DO DO DO DO 9210- 93 C9 42 DO 03 4C E7 92 9340- 00 90 85 1A BD CO 90 85 
90C0- 20 24 28 2C 30 34 38 3C 9218- C9 48 DO 03 4C 20 92 60 9348- 1B CA BD 00 90 85 18 BD 
90C8- 20 24 28 2C 30 34 38 3C 9220- 20 B1 00 20 F5 E6 86 EF 9350- CO 90 85 19 A4 EB B1 18 
90D0- 21 25 29 2D 31 35 39 3D 9228- 20 F5 E6 86 06 20 F5 E6 9358- 91 1A C8 C4 EC DO F7 86 
90D8- 21 25 29 2D 31 35 39 3D 9230- 86 EB 20 F5 E6 86 ED 20 9360- 07 E4 EE DO D8 A5 EF DO 
90E0- 22 26 2A 2E 32 36 3A 3E 9238- F5 E6 E8 86 EC 20 F5 E6 9368- 0E A4 EB 91 18 C8 C4 EC 
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93D8- A2 27 86 08 
93E0- 90 85 18 85 
93E8- 85 19 18 69 
93F0- EC A5 EF DO 
93F8- 94 C9 01 DO 
9400- 4C 12 94 C9 
9408- 08 B1 1E 48 
9410- 94 EA 88 B1 
9418- 88 C4 EB DO 
9420- CA E4 ED DO 
9428- C6 08 C6 06 
9430- DO AA 60 A2 
9438- EE BD 00 90 


9370- DO F9 C6 06 DO AB 60 C9 
9378- 02 DO 21 A6 08 BD 00 90 
9380- 85 1C BD CO 90 18 69 20 
9388- 85 1D C6 08 A4 EB B1l 1C 
9390- 91 1E'C8 C4 EC D0 F7 C6 
9398- 06 DO 86 60 A4 EB B1 FA 
93A0- 91 1E C8 C4 EC DO F7 C6 
93A8- 06 FO 02 DO C7 60 85 09 
93B0- 20 B1 00 20 F5 E6 86 EF 
93B8- 20 F5 E6 86 06 20 F5 E6 
93C0- 86 EB 20 F5 E6 CA 86 ED 
93C8- 20 F5 E6 86 EC 20 F5 E6 
93D0- 86 EE A5 09 C9 47 FO 5B 





9440- BD CO 90 85 19 18 69 20 
9448- 85 1F A4 EB A5 EF DO 04 
9450- 48 4C 6D 94 C9 01 DO 06 
9458- B1 18 48 4C 6D 94 C9 02 
9460- DO OA A4 08 B1 1E 48 A4 
9468- EB 4C 6D 94 EA C8 B1 18 
9470- 88 91 18 C8 C4 EC DO F5 
9478- 68 91 18 CA E4 ED DO B9 
9480- 20 8E 94 E6 08 C6 06 A5 
9488- 06 C9 FF DO AA 60 AD 00 
9490- CO 2C 10 CO C9 9B DO 03 
00 86 08 A6 9498- 4C D2 D7 C9 A0 DO 03 20 
94A0- 





Extasie à l’essai 


Nous devons ce programme de dessin, 
édité par Apple, à Pierre Berloquin et 
Serge Hervy. Il nécessite un Apple //c ou 
un //e avec carte Féline et souris. 


La qualité de l'ergonomie permet de se 
lancer dans son premier dessin sans trop 
s'attarder sur la documentation d'ailleurs 
fort bien présentée. Une barre de menus 
déroulants, des fenêtres, pilotage à la 
souris, c'est presque MacPaint ! 


Les dessins en couleurs (16) et en double haute 
résolution sont réalisés à partir de fonctions de 
base : point, trait, rectangle, ellipse, aérographe et 
texte (à chasse proportionnelle) ; une loupe aide 
l'utilisateur à travailler au point près sur les 560 
que comporte chaque ligne. On dispose également 
du remplissage à l'aide d'un motif choisi parmi 
seize, mais cette routine de remplissage — rapide — 
nous a semblé utiliser une astuce simplifiant plus 
la tâche du programmeur que celle de l'utilisateur : 
il faut balayer verticalement la zone à remplir et 
non simplement ‘cliquer’ dedans. Pas si simple 
quand la zone est effilée. Pas de vrais bugs mais la 
vitesse de tracé des rectangles reste en-deçà de 
l'extase. 


La gestion est confiée à ProDOS, ce qui permet 
d'utiliser tous les supports mais là, le confort de 
l'utilisateur pêche un peu sans que ProDOS soit 
responsable : 


+ la routine ONLINE n'est pas disponible 
directement mais seulement en cas d'erreur ; 


* en sauvegarde, une erreur est signalée deux 
fois, une lors de la tentative d'OPEN, une lors 
du CREATE ; 


+ on n'accède pas directement aux 
sous-catalogues lors des sauvegardes/ 
chargements, il faut le préciser dans un 
menu ; 


+ dernier point faible : il n'est pas prévu de 
formater une disquette depuis le programme. 
ProDOS ne le permet pas mais adjoindre une 
telle routine à ce programme n'était pas un luxe. 


Dans la fenêtre d'erreur subsistent deux nombres : 
l'un est le code de la fonction MLI appelé, l'autre 
le code d'erreur : un vestige de debugging ou 
initiation aux appels MLI ? : 


Finalités d'un programme de traitements de 
dessins, la sauvegarde et l'impression. Ici, la 
première se fera compactée (pour un gain de place 
non négligeable) ou non et la deuxième en 
couleurs (sur l'ImageWriterll). 


Extasie est certainement un bon logiciel (double 
haute résolution, impression couleur, simplicité et 
confort dans les manipulations). On attend 
toutefois avec impatience une nouvelle version, 
plus rapide et aux accès disques plus conviviaux. 


G 
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PicoExpert 
Système Expert de degré 0 


Yves Martin 


Généralités 


PICOEXPERT prend en compte 
deux fichiers. Dans le premier, il 
lit des assertions qui pourront être 
vraies ou inconnues. Dans le 
second, il lit les règles qui 
régissent ces assertions. 


PICOEXPERT permet de faire 
sur ces assertions (on dira ‘faits’ 
dans la suite, même si c'est un 
abus de langage, car un fait 
devrait être une assertion vraie) 
soit de l'induction ou chaînage 
arrière, soit de la déduction ou 
chaînage avant. 


Dans cet article, nous allons 
utiliser ce programme pour 
décrire brièvement comment 
fonctionne un système expert. 
Celui-ci est dit de degré 0 car les 
assertions de base ne contiennent 
pas de variable. Un système 
expert de degré 1, avec variables, 
serait beaucoup plus intéressant, 
mais c'est déjà moins simple à 
écrire, et il semble qu'il soit 
difficile de faire quelque chose 
qui soit à fois général et efficace : 
par exemple, un système expert 
en géométrie, outre qu'il doit 
savoir faire ce qu'on attend de 
lui, doit naturellement connaître 
des notions comme la transitivité, 
les classes d'équivalence par 
exemple, ce qui ne sera pas 
nécessaire pour un système 
expert en autre chose. 


L'utilisation de la récursivité du 
Pascal et de ses pointeurs est tout 
à fait efficace ici, c'est presque 
faire de l'assembleur — car on 
gère constamment des adresses — 
avec un langage évolué. Si cet 
article pouvait arriver à 
convaincre les “Pascaliens” qui 
ne s'y sont pas encore mis à 
travailler les pointeurs. 
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Structure 
du programme 


Le programme est divisé en 
différentes parties : 


Procédures usuelles de Pom's et 
initialisations diverses 
On remarquera la possibilité du 
‘?’ dans le OUI, ceci afin que 


l'on puisse signifier que l'on 


ne connaît pas la réponse à une 
question, alors que le NON 
pourrait signifier que l'on sait 
que la chose demandée n'est 
pas vraie ; 


Procédures de manipulation des 
diverses listes 


Ces procédures permettent 
d'ajouter ou retrancher des 
éléments d'une liste, ou tout 
simplement évaluer son 
contenu. Elles ne posent pas de 
problème et le débutant en 
pointeurs en Pascal peut com- 
mencer par défricher cette 


partie , 


La construction de l'arbre des 
conditions 
Ces procédures permettent de 
transformer les règles lues 
dans le fichier de règles en liste 
d'arbres. La structure retenue 
ici est la suivante : 


— une règle est un enregis- 
trement qui contient : une 
condition, une action et un 
pointeur de règle, ou encore 
les règles sont dans une liste 
qui contient une condition et 


une action ; 

— une condition est une liste 
d'arbres ; 

— une action est une liste 
d'entiers ; 


— un arbre enfin est composé 
d'une INFO qui est un en- 
tier, et d'un Fil Gauche et 


d'un Fil Droit qui sont des 
pointeurs d'arbres. 


Précisons tout d'abord que les 
assertions lues sur la disquette 
sont placées dans un tableau BF 
(pour Base de Faits) et qu'ensuite 
les faits sont repérés par leur 
indices dans ce tableau, c'est 
pour cela qu'une action est une 
liste d'entiers et que INFO d'un 
arbre est aussi un entier. 


La grammaire pour construire la 
liste des règles est la grammaire 
usuelle de l'algèbre ordinaire, on 
a: 


Expression Terme 
LS 


Par exemple : 
A+B 
AC+B+D.(E+F+6G) 


sont deux expressions. Dans la 
première les deux termes sont À 
et B et dans la seconde les termes 
sont A.C puis B, puis D.(E + F 
+G). Autrement dit, une 
expression est une suite de termes 
séparées par des OÙ (bien sûr ici 
OÙ et ET sont respectivement 
représentés par "+" et "."). 
Terme Terme 

| Et “ui 
Les TERMES eux, sont une suite 
de facteurs séparés par des ET 
(soit des “.”). Dans le second 
exemple ci dessus, A.C est un 
terme dont les facteurs sont A et 
C, B est un terme à un seul 
facteur, et D.(E + F + G) est un 
terme dont les facteurs sont D 
d'une part et d'autre part (E + F + 
G) c'est-à-dire une 
EXPRESSION entre parenthèse. 


On retrouve là tout à fait l'algèbre 
ordinaire, et pour ceux qui 





découvrent ce genre de choses 
ici, on s'aperçoit combien la 
récursivité est indispensable dans 
ces problèmes puisque la 
définition de FACTEUR 
contenue implicitement dans 
EXPRESSION contiendra aussi 
EXPRESSION. 


Facteur NBRSS 
| (Expression) | 


Autrement dit, un facteur sera soit 
un NBRSS, un nombre sans 
signe, soit une expression placée 
entre parenthèses. 


NBRSS : c'est une chaîne de 
caractères qui ne peut utiliser que 
les chiffres. 


La construction proprement dite 
se fait dans la procédure 
CONSTRUIRE qui, partant 
d'une chaîne de caractères renvoit 
un pointeur d'arbres et un entier 
qui indique le nombre de feuilles 
dans toute la “forêt” de 
conditions ! La forêt en pratique 
n'ayant que 1 ou 2 arbres 
d'ailleurs. 


Ce nombre de feuilles devait 
servir à ordonner les arbres selon 
le nombre de feuilles décroissant, 
puis ensuite de pondérer les 
assertions afin que, les feuilles 
ayant du poids, on examine les 
arbres selon le poids d'inconnu 
que l'on a à son égard, mais cette 
dernière amélioration, pourtant 
assez facile à réaliser n'a pas été 
faite ici, ce serait un bon exercice. 
Donc dans la procédure 
CONSTRUIRE, les variables N, 
N1 et N2 ne considèrent que cette 
question et n'interfèrent pas la 
compréhension de la suite. 


CONSTRUIRE utilise LICAR et 
NUCAR. LICAR lit tout 
simplement un caractère qu'elle 
place dans la variable CAR et fait 
pointer la variable NUCAR sur le 
prochain caractère à lire (les 
blancs sont sautés, bien sûr). Les 
procédures EXPRESSION et 
TERME sont identiques et basées 
sur l'algorithme suivant — donné 
pour EXPRESSION : 


Pour EXPRESSION (V1 et V2 
sont des PARBRES) 


— Rechercher le premier 
TERME, et le mettre dans V1 
— Tant qu'on rencontre un OU : 
- chercher le terme suivant, le 
mettre dans V2 
- construire un nouvel arbre 
ayant 
pour information : OU 
pour fils gauche V1 
pour fils droit V2 
- mettre dans V1 ce nouvel 
arbre 
— EXPRESSION renverra la 
valeur de V1 


Ainsi À + B + C sera codé ainsi : 


U 


0 

> 

OU C 
ra de 


même chose pour TERME. 


FACTEUR se traite de la même 
façon : 


— Pour FACTEUR 

— Chercher si on a affaire à un 
NBRSS 

— Si oui on place ce nombre sans 


signe dans FACTEUR 
- Sinon : Si l'expression 
commence par une parenthèse 
- alors chercher une 
EXPRESSION 
- si l'expression se termine 
par une parenthèse 
alors FACTEUR recoit 
EXPRESSION 


sinon Erreur ! Il manque “)” 
- sinon Erreur ! Il manque “(” 


Enfin NBRSS indique si l'on 
rencontre un nombre sans signe 
et, si oui, le place dans le INFO 
du PARBRE correspondant. 


Ainsi A.C + B + D.(E + F + G) 
sera alors structuré comme suit: 


Pointeur de l'expression 


Fou 
LL ro Ne 
ET B :D OU 
TS ; NO 
À (82 . OU G 
PL Le 


La condition d'une règle est une 
suite de Parbre, ceux-ci étant 





implicitement séparés par des ET. 
Cette possibilité est proposée 
dans la syntaxe par une ‘*' qui 
fait l'effet d'un “gros ET”. Cette 
possibilité avait été laissée au 
départ dans l'optique de 
structurer une réorganisation du 
parcours des Parbres en fonction 
du poids des feuilles qui restaient 
inconnues ; mais ceci n'a pas été 
fait dans cette version, les 
feuilles, c'est-à-dire les assertions 
de départ n'ayant pas été 
pondérées. 

Ainsi par exemple 2 * (3.4 + 5.6) 
est identique à 2.(3.4 + 5.6), 
seulement la première version 
donne deux Parbres pour 
l'expression alors que la seconde 
ne donne qu'un seul parbre. 


Les procédures de déduction 


Il s'agit du chaînage avant d'un 
système expert : Compte tenu des 
faits qui sont connus par la 
machine comme vrais, elle 
applique les règles qu'elle connaît 
et en déduit tout ce qu'elle peut. 


La procédure DEDUIRE est le 
lien avec l'utilisateur qui indique 
quelles sont les assertions vraies. 
Une fois cela établi, on appelle 
DEDUIT. 


DEDUIT parcours toutes les 
règles. Pour chaque règle, elle 
teste si celle-ci est applicable et, si 
oui, elle vérifie qu'en l'appliquant 
on obtient bien un fait nouveau. 
Si une fois au cours de tout ce 
parcours on obtient au moins un 
fait nouveau, alors on 
recommence tout le procédé 
depuis la première règle puisque 
la base de faits connus comme 
vrais s'est agrandie. 

DEDUIT utilise donc les fonction 
booléennes CHAINAVANT, 
UTILISE, et TESTREGL. 


Détaillons TESTREGL qui, elle, 
utilise la récursivité, ce qui nous 
préparera au chaînage arrière. 
TESTREGL teste tout les Parbres 
de sa partie ‘condition’, tous ces 
arbres doivent être vrais car ils 
sont séparés par des ET (‘*’). 
Pour cela TESTREGL contient 
une fonction TESTARB qui elle 
sera récursive, en effet son 
algorithme dans ces conditions 
est très simple : 
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Pour TESTARB(RAC:parbre) 
Selon que le contenu INFO de la 
RACine est : 
ET alors 
si le Fils Gauche est vrai 
TESTARB est la valeur du 
Fils Droit 
sinon TESTARB est faux 
OÙ alors 
si le Fils Gauche est faux 
TESTARB est la valeur du 
Fils Droit 
sinon TESTARB est vrai 


Une feuille alors TESTARB est 
vrai si la feuille est contenue dans 
la liste des feuilles connues 
comme vraies. 

Là encore, si on débute dans 
l'approche récursive, cette petite 
application donne la mesure de la 
force de la récursivité. 


Les procédures d'induction 
ou chaînage arrière 


Cette partie est sans doute, avec 


la procédure de construction des 
arbres, la plus intéressante du 
programme, bien qu'elle soit très 
simple de compréhension et de 
réalisation. 

Elle contient deux procédures en 
récursivité croisées, la seconde 
appelant une procédure elle-même 
récursive, situation tout à fait 
naturelle dans ce genre de 
situation, et donc très simple à 
écrire dans un langage lui-même 
récursif. 

La fonction PROUVREGLE est 
vraie si la règle que l'on cherche à 
appliquer est effectivement 
applicable. La fonction 
VERIFIER se contente 
simplement de vérifier si un fait 
est vrai. Les deux s'articulent 
ainsi : 

Pour VERIFIER qu'un fait est 
vrai, il faut : 

- tester s'il est un élement de la 
liste des faits vrais (ici BASE), et 
si oui, c'est fini ; 

- Sinon, on parcours la liste de 
toutes les règles, et pour chaque 
règle dont ce fait là est une action, 
c'est-à-dire une conclusion, on 
est amené à tester si cette règle est 
applicable PROUVREGLE) ; 

- si le fait n'est dans aucune 
action, ou qu'aucune règle n'est 
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applicable, alors il nous reste à 
demander à l'opérateur au clavier 
s'il sait quelque chose au sujet de 
ce fait là (aprés s'être assuré 
qu'on ne lui a pas déjà demandé — 
d'où une liste de QUESTIONS et 
une procédure ENLEVE pour 
enlever les faits connus des 
QUESTIONS). 


Pour PROUVer une REGLE 
maintenant, il suffit de PROUVer 
les arbres qu'elle contient. Si tous 
les ARBres sont vrais, la règle est 
applicable et on l'applique 
(utilisation de PLACER). 


Pour PROUVer un ARBre 
(PROUVARB), on procède 
comme pour le TESTer 
(TESTARB). Selon 
l'INFOrmation de la RACine : 

— ET : on doit PROUVer les 

ARBres à la fois FG et FD 
— OÙ : on doit PROUVer l'un 
des ARBres FG ou FD 

— FEUILLE : on doit VERIFIER 
que cette feuille est bien connue 
comme vraie (et donc VERIFIER 
est appelée par PROUVARB qui 
est appelée par PROUVREGLE 
qui est appelée par VERIFIER 
elle-même). 

La procédure CONFIRMER fait 
le lien avec l'opérateur au clavier 
et demande quelle assertion on 
veut prouver. Elle cherche alors à 
VERIFIER cette assertion selon 
l'algorithme décrit au dessus. 


Les procédures de lecture 
des règles 


Ces procédures lisent les fichiers 
de faits et de règles sur la 
disquette et construisent les 
arbres de règles. 

LIREREGLE découpe la phrase 
en une partie CHaine ACTion 
(CHACT) et une partie CHaine 
CONDlItion (CHCONDI). 
ATTENTION il est ici implicite 
que le signe d'implication soit 
“==>” et qu'il soit précédé d'un 
blanc. 

Ensuite, PLACTION place les 
actions et PLCONDIT place les 
conditions, et donc appelle 
CONSTRUIRE. Remarquons 
que les actions sont séparées par 
des ‘.” et non des ‘*’. On peut le 
rajouter si on veut dans 
PLACTION :ïil suffit alors 


d'ajouter ‘*” a l'ensemble 
des séparateurs ...IF S[I] IN... 


Enfin, on a ajouté une procédure 
de vérification des règles qui est 
simplement une lecture de l'arbre 
de la liste des règles. Là encore, 
dans le cadre d'une découverte de 
la récursivité sur des arbres en 
pascal, on peut commencer à 
défricher ECRIREGLE et 
ECRIARB qui ne posent aucune 
difficulté. 


Ce programme est accompagné 
de deux exemples en 
mathématique. Le premier sur les 
notions de parallélogramme, 
rectangle, losange et carré. On 
peut utiliser celui-ci pour se 
familiariser avec le fonction de 
PICOEXPERT. 

Le second exemple montre les 
limites d'un tel progamme dans le 
cas où on veut rapidement 
travailler avec des variables et que 
l'on ne dispose pas au moins de 
l'équivalence, néanmoins 
PICOEXPERT est très compétent 
pour tout ce qui est générique, 
sans variables. 


Les améliorations 


On peut commencer par chercher 
à ce que le programme affiche 
non seulement ce qu'il déduit 
comme il le fait actuellement, 
mais qu'il affiche aussi pourquoi 
il déduit cela, c'est-à-dire qu'il 
indique, quand il utilise une 
règle, les faits qu'il utilise 

et eux seulement bien sûr. Ce 
serait une procédure qui serait 
appelée par PLACER par 
exemple, et elle serait intéressante 
à faire. 


PICOEXPERT peut aussi être 
transformé en MICROEXPERT 
ou même MINIEXPERT en 
améliorant le chaînage arrière. En 
effet le programme actuel, à des 
fins didactiques, utilise soit un 
chaînage avant pur soit un 
chaînage arrière pur. Or dans la 
réalité, la démarche analytique, 
l'induction n'est jamais faite sans 
considérations de déduction, cela 
n'a pas de sens. Il faudrait donc 
repenser complètement 








l'algorithme du chaînage arrière 
pour que de pico- le programme 
devienne micro- ou même mini- 
expert. 


Pour cela, il y aurait assez peu à 
faire, encore que cela puisse être 
assez long. On pourrait dans un 
premier temps simplifier la 
grammaire et ne considérer, à la 
place des arbres, simplement des 


listes de ET, et dans ce cas on 


aurait effectivement plusieurs 
règles ayant la même action. 
Ensuite donner un coefficient de 
pondération à chaque assertion. 
Pour VERIFIER un fait on peut 
alors faire la liste des règles qui 
ont ce fait en action. Cette liste 
sera ordonnée selon la fraction 
d'inconnu dans ses prémisses : 


Par exemple si A.B.C ==> D, 
que À ,B , C soient affectés de a, 
D;:c: 


Si par exemple À et B sont 
connus alors cette règle sera 
affectée elle du coeficient c / 
(a+b+c) . Et ainsi les questions 
posées le seront avec beaucoup 
plus de pertinence. Et pico- 
deviendra micro-. Notons que ce 
micro-expert serait tout à fait 
efficace dans nombre 
d'applications : diagnostic de 
panne ou diagnostic d'utilisation 
de réglementations complexes. 
Pour avoir plus de place 
mémoire, il n'est pas nécessaire 
d'avoir le fichier ‘faits’ en 
mémoire centrale, il peut rester 
sur disque ou sur disque 

virtuel, et donc le tableau BF 
étant alors supprimé, il y a 
beaucoup plus de place pour les 
règles. 


On peut chercher à améliorer les 
possibilités et introduire en plus 
de l'implication, l'équivalence 
logique. Ici cela n'a pas été fait 
car cela n'a d'intérêt d'une part 
que pour des applications 
mathématiques, et d'autre part, 
d'assez peu d'intérêt pour un 
système sans variable. 
Néanmoins, la chose est un bon 
exercice qui ne pose aucun 
problème et qui pourrait, dans le 
cadre d'application 


mathématiques, avoir un réel 
intéret pédagogique ou être une 


bonne base pour un projet 
pédagogique. 


Pour cela, il suffit d'avoir un 
degré de profondeur de plus dans 
les procédures PROUV (règle ou 
arbre) et bien sûr un drapeau qui 
pointe sur la liste des 
équivalences que l'on est en train 
de tester pour ne pas boucler sur 
les équivalences. Ce degré de 

profondeur ne demande que la 
construction d'une autre 
procédure PROUV 
(PROUVGENE) et d'une 
procédure TESTEQU qui testera 
sur les équivalences une assertion 
donnée, moyennant de ne pas 


essayer une liste 
d'équivalences.. dont peut être 
issu cet appel. 


Et micro- deviendra mini-. 


Bien sûr, cette partie sera 
grandement enrichie, mais cela 
devient moins simple, si il n'y a 
plus une base de faits vrais 
uniquement, mais aussi une base 
de faits faux ( CONSTRUIRE se 
modifie facilement en mettant des 
nombres négatifs, cette partie ne 
présente pas de réelle difficulté) et 
que, c'est là qu'est la difficulté, le 
programme s'il rencontre 
A <==> B et qu'il sache que A 
est faux en conclura que B aussi, 
avec de nombreuses variantes sur 
les contraposées logiques, par 
exemple si À ou B ==> C 

et que l'on sait que A est faux et 
que C aussi, on place 
automatiquement que B l'est 
aussi. Autrement dit, un 
programme qui, outre ses règles 
sur fichier, contiendra ses 
propres méta-règles. 


La difficulté n'est pas tant dans 
l'écriture, mais surtout dans le 
fait que le chaînage arrière comme 
on l'a décrit ci-dessus ne serait 
plus alors aussi pertinent ; en 
effet dans ce cas, la récursivité si 
précieuse auparavant devrait 
pouvoir être court-circuitée ici a 
tout moment sous peine de poser 
à l'écran des questions qui ne 
seraient plus d'actualité. Il faut 
donc repenser alors complètement 
l'algorithme du chaînage arrière, 
pour qu'il ne pose que des 
questions pertinentes. 

Et alors mini- deviendra vraiment 


expert. 


Comme on le voit dans ces 
améliorations, travailler sur un 
système expert, même d'ordre 
zéro, peut être un travail vraiment 
passionnant puisqu'il amène à 
réfléchir sur la ‘démarche 
intelligente’ que l'on souhaite 
donner à l'analyse d'un 
problème, et les variantes sont 
nombreuses chacun programmant 
un peu sa propre façon d'analyser 
un problème. 


NDLR : Le programme comprend 
1.2+34 comme (1.2)+(3.4) et 
1+2.3+4 comme 1+(2.3)+4. Il 
est donc conseillé de mettre des 
parenthèses dès qu'on a le 
moindre doute. 


Éviter les règles qui se ‘mordent 
la queue’, surtout quand on a fait 
un chaînage arrière, car le 
programme peut alors boucler 
sans autre issue que le RESET. 
Par exemple : 

(12) ==> (3) 

(3)==> (2) 
Si l'on cherche à confirmer (2) on 
court au problème. 


Si les règles sont incorrectement 
écrites, le programme ne s'en 
aperçoit pas toujours et peut 
planter à la lecture du fichier de 
règles (erreur d'exécution ou 
bouclage). 


Ce système expert est très 
rudimentäire (par comparaison 
car il est déjà complexe), aussi, il 
ne sait interpréter que des 
assertions vraies : 
Ainsi, dans le cas de : 

(12) ==> (3) 

(3) ==> (4) 
si l'on veut confirmer (4), il 
demandera successivement : 

1 vrai ? 

2 vrai ? 

3 vrai ? 

4 vrai ? 
Même si l'on affirme que I est 
faux, il demandera (car il ne sait 
pas le déduire) si 3 et 4 sont 


vrais. 
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Les fichiers 


Le fichier GEOMETRIE 
s'intéresse aux parallélogrammes 
(#), rectanges, losanges, et 
carrés. 


Le second fichier est une 
démonstration de base du 
theoreme de THALES, pour cela 
le programme est efficace 
seulement ou presque avec les 
hypotèses 1,5,6,13 et 10, 
c'est-à-dire : Soit ABC un 
triangle I milieu de AB, IJ//BC et 
J sur AC et K de AB tel que 
JK//AB. Alors le théorème dit 
que J est milieu de AC (et K 
milieu de BC). 


Sur ce fichier on n'a pas pu 
mettre beaucoup d'autres règles 
car elles auraient fait boucler le 
programme . On voit ici que, 
même sans variables, avec des 
équivalences, on arriverait a 
d'excellents résultats. 


Fichier FAITHALES.TEXT 


milieu de AB 

milieu de AC 

milieu de BC 
appartient AB 
appartient AC 
appartient BC 

IA et IB meme longueur 
IA et JC meme longueur 
KB et KC meme longueur 


xXUHX UM 


JK // AB 
JK // IA 
UK // IB 
IJ // BC 
IJ // KB 
27 27 KE 
IK  fY CC 
IK // JA 
IK // JC 


IJ et KB meme longueur 
IJ et KC meme longueur 
JK et IA meme longueur 
JK et IB meme longueur 
IK et JA meme longueur 
IK et JC meme longueur 
IJKB parallelogramme 
IJCK parallelogramme 
JKIA parallelogramme 


Fichier REGLTHALES.TEXT 


(14,12) ==> (25) 
(25) ==> (22.19) 
{1) ==>(4.7) 

(7.22) ==> (21) 
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(11.21) ==> (27) 
(13.6) ==> (14.15) 
(10.4) ==> (11.12) 
(27.5) ==> (23.17.18) 
(15.18) ==> (26) 

(26) ==> (24.20) 
(23.24) ==> (8) 

(8.5) ==> (2) 

(20.19) ==> (9) 

(9.6) ==> (3) 


Fichier GEOMETRIE.TEXT 


1 On est dans le plan 

2 On a quatre points 
A,B,C,D 

3 (ABCD) est un 
quadrilatere 


4 Les cotes opposes sont deux 
a deux paralleles 
5 Deux cotes opposes sont 
paralleles et de meme 
longueur 
6 Les diagonales se coupent 
en leurs milieux 
7 (ABCD) est un # 
Les diagonales ont meme 
longueur 
9 Deux cotes sont 
orthogonaux 
10 (ABCD) est un rectangle 
11 Deux cotes consecutifs ont 
meme longueur 
12 Les diagonales sont 
orthogonales 
13 (ABCD) est un losange 
14 (ABCD) est un carre 


Fichier REGLEGEOM.TEXT 


(1) 

(2) 

(4+5+6) *(3) ==> (7) 
(1.2) ==> (3) 
(7.(8+9)) ==> (10) 
(7)*(11+12) ==> (13) 
(10.13) ==> (14) 


Programme ‘PICOEXPERT’ 


Le symbole ‘' indique la continuité de la ligne. 


PROGRAM PICOEXPERT; (* --- Avec arbres de cond] 
itions ET et OÙ ---- *) 
CONST NMAX=S5; ET=1000; OU=1010; 
TYPE CHOIDECA=SET OF CHAR; 
PCELL="CELL; 
PLISTE=" LISTE; 
PREGLE="REGLE; 
PARBRE=" ARBRE; 


REGLE=RECORD 
CONDIT:PCELL; 
ACTION:PLISTE; 
SUIV:PREGLE; 

END; 


LISTE=RECORD 
ADRI:INTEGER; 
SUIV:PLISTE; 

END; 


CELL=RECORD 
ADRC : PARBRE ; 
SUIV:PCELL; 

END; 


ARBRE=RECORD 
INFO: INTEGER; 
FG:PARBRE; 
FD:PARBRE; 
END; 


VAR BASE, QUESTIONS, BASEREF, QUESTREF :PLISTE; 
REGLES :PREGLE; 
BF:ARRAY{1..NMAX] OF STRING; 
NOMF12, NOMF 1 : STRING; 
INV,NORM, HOME, BS, EFL, EFB, SON, CR, CI, CO:CHAR; 
NBFAITS: INTEGER; 
FICH:TEXT; 


PROCEDURE PRENINFO; 
BEGIN HOME :=CER (12) :EFB:=CER (11) :EFL:=CER (29) ; BJ 


S:=CER (8) ; 
CR:=CER (13) ; SON :=CHR (7) ; INV:=CER (15) :NORM] 
:=CBR (14); 

END; 


PROCEDURE MESS (U, V:INTEGER; S: STRING; K: INTEGER) ; 
BEGIN GOTOXY (U, V) ; 

CASE K OF 

: MRITE(S); 

: NRITE(S,EFL); 

: HRITE(S,EFB); 
WRITE (S, SON) ; 

: MRITE(S,EFL, SON) ; 
WRITE(S,EFB, SON) ; 
WRITE (INV, 5, NORM) ; 

: WRITE (INV,S,NORM, EFL) ; 

: WRITE(INV,S,NORM, EFB) ; 
WRITE (INV, S,NORM, SON) ; 
WRITE(INV, 8, NORM, EFL, SON) ; 
11 : WRITE(INV,S,NORM,EFB, SON) ; 


e 


@ io Un æ Lo NS 1e 


pa 
e w 


PROCEDURE MERR (S : STRING) ; 
BEGIN MESS (0,23,85, 4) ; END; 


PROCEDURE EFMERR; 
BEGIN MESS(0,23,° ‘,1);END; 


PROCEDURE PRENRETURN; 

VAR SORT : CHAR; 
BEGIN GOTOXY (0,23) :WRITE(''"Return' pour conti 
nuer ‘); 

REPEAT 

READ (KEYBOARD, SORT) ; 

UNTIL EOLN (KEYBOARD) ; 
EFMERR; 
END; 


FUNCTION PRENCAR (BONENS :CHOIDECA) : CHAR; 
VAR CH : CHAR; 
BON : BOOLEAN; 
BEGIN 
REPEAT 
READ (KEYBOARD, CE) ; 
IF EOLN(KEYBOARD) THEN CH:=CR; 
BON:=CH IN BONENS; 
IF NOT BON THEN WRITE (SON) 
ELSE IF CH IN [‘ "..'z'] THEN WRITES 
{CH}; 
UNTIL BON; 
PRENCAR :=CH; 
END; 


FUNCTION OUI :BOOLEAN; 
BEGIN 
QUI :=PRENCAR ({*O°,*N','o",'n',?']} IN ['O','o'] 
1: 
WRITELN; 
END; 
PROCEDURE PRENENTIER (LONGMAX: INTEGER; VAR S: INTEGER] 
LE 
VAR S1 : STRINGI1); 
I : INTEGER; 
CONT : STRING; 
ENSCHIF :CHOIDECA; 


BEGIN 
ENSCHIF:=["0",,'9");S1l:=" *}CONT:=""; 
REPEAT 
IF LENGTH (CONT) =Q THEN S1{1) +=PRENCAR (ENSCH] 
IF+[CR)) 


ELSE IF LENGTE(CONT)=LONGMAX THEN S1(1):) 
=PRENCAR((CR,BS]) 
ELSE S1[1):=PRENCAR(ENSCHIF+ [CR,BS]] 
}; 
1F S1(1] IN ENSCHIF THEN CONT:=CONCAT (CONT, | 


si} 
ELSE IF S1(1]=BS THEN BEGIN 
WRITE(BS," ‘,BS): 
DELETE (CONT, LENGT] 
H{CONT) , 1) ; 
END; 


UNTIL S1[1)-CR; 

1F LENGTH (CONT)<>0 THEN BEGIN 
S:=-0; 
FOR Ii=1 TO LENGTE (CO| 
NT) DO 
BEGIN 
Si=S*10;5:=54+ (ORD (CON) 





TI1)])-CRD("0")); 
END; 
END 
ELSE WRITE(S); 
END; 


PROCEDURE PRENCHAINE (LONGMAX : INTEGER; BONENS : CHOLDE| 
CA; VAR S:STRING) ; 
VAR S1 :STRING[1]; 

CONT :STRING; 


BEGIN 
Sli=" *;CONT:=""} 
REPEAT 
IF LENGTH (CONT)=0 TEEN S1[1):=PRENCAR (BONENS+ [| 
CR)) 
ELSE IF LENGTH (CONT)=LONGMAX TBEN S1[1]:=PRE| 
NCAR(ICR,BS]) 
ELSE S1{1] :=PRENCAR(BONENS+[CR, BS]}); 
IF S1(1] IN BONENS THEN] 
CONT :=CONCAT (CONT, S1) 
ELSE IF S1[1]=BS THEN BEGIN WRITE (85, / 
, *,38); 
DELETE (CONT, LENGTE (CONT) , 1) ; 
END; 
UNTIL S1{1]=CR; 
IF LENGTH(CONT)<>0 THEN S:=CONT 
ELSE WRITE(S): 
END; 


PROCEDURE LIRE (VAR LN:STRING); 

BEGIN READLN (FICE, LN); 

WBILE (NOT EOF(FICH)}) AND ((LN="") OR (LN=' ‘)) DOJ 
READLN (FICE, LN) ; 

END; 


PROCEDURE LIREREGLE; FORNARD; 
PROCEDURE ECRITEST ; FORMARD ; 


PROCEDURE INIT; 
CONST DIRERR='Mal orthographié ou mauvaise disquet| 
te'; 
VAR LN:STRING; 
VRAI : BOOLEAN ; 
BEGIN 
PREN INFO; 
BASE: =N IL; REGLES : =NIL;QUESTIONS :=N1L; NBFAITS :=0; 
WRITE (HOME) ;MESS (30,1,° SYSTEME EXPERT ‘,6}) VRAI :=| 
FALSE; 
(*$1-*) 
MESS(0,10,°Le fichier de faits sera en drive 2',1); 
MESS(0,12,"Indiquer son nom sans le préfixe de drif 
ve',1); 
MESS (0,13,'et sans le suffixe ".TEXT"",1); 
REPEAT 
MESS(0,18, ‘Nom du Fichier de faits : 1; 
PRENCHAINE (20, [* ‘..'z'],NOMFI2) ;EFMERR; 
NOMF 12 :=CONCAT (*#5:",NOMFI2,'".TEXT'}; 
RESET (FICE, NOMF 12); 
VRAI :=IORESULT=0 ; 
1F NOT VRAI TBEN MERR(DIRERR) 
ELSE 
WAILE NOT EOF(FICH) DO BEGIN LIRE(LN); 
IF ((LN<''}) AND (LN<>' ‘}} THEN BEGIN 
NBFAITS:=NBFAITS+1;BF [| 
NBFAITS) :=LN; 
WRITELN(NBFAITS,* -->| 
*,BFINBFAITS])); 








END; 

END; 
CLOSE {FICE) ; 
UNTIL VRAI; 
MESS(0,3," *,2); 
VRAI :=FALSE; 
MESS(0,10,'Le fichier de régles sera aussi en érivl 
e 2',1); 
MESS(0,13,"sans préfixe ni suffixe',1l); 
REPEAT 
MESS(0,18,'Nom du fichier de régles : *°1)5 
PRENCHAINE(20,{* ‘..'z2"],NOMF 1} ;EFMERR; 
NOMFI :=CONCAT ("#5:°,NOMFI,'".TEXT'); 
RESET(FICE, NOMF1) ; 
VRAI : = IORESULT=0 ; 
IF NOT VRAI THEN MERR(DIRERR} 

ELSE MBILE NOT EOF(FICE) DO LIREREGLE; 

CLOSE (F1ICB) ; 
UNTIL VRAI; 
(*$1+*) 
WRITE (HOME, ‘Vérification des régles (O/N) ? ‘); 
IF OUI THEN BEGIN WRITELN;WRITELN;ECRITEST; PRENRET] 
URN; END; 
END; 


(* - Procedures de manipulation des diverses list| 
es - !*) 





FUNCTION MEMBRELIST(I:INTEGER;L:PLISTE) :BOOLEAN; 
BEGIN 
IF L=NIL THEN MEMBRELIST:=FALSE 
ELSE BEGIN 
WBILE (L<>NIL) AND (I<>L*.ADRI) DO L{ 
1=L*,SUIV: 
MEMBRELIST :=NOT (LeNIL) ; 


END; 





FUNCTION MEMBRECELL(A:PARBRE:C :PCELL) : BOOLEAN; 
BEGIN 
IF CNIL TEEN MEMBRECELL:=FALSE 
ELSE BEGIN 
MEILE (CNIL) AND (A<C*.ADRC) DO CJ 
1C*.SUIV; 
MEMBRECELL :=NOT (C=NIL) ; 
END; 
END; 


FUNCTION AJOUTLIST(I:INTEGER;:L:PLISTE) :PLISTE; 

VAR P:PLISTE; 

BEGIN NEW(P);P*.ADRI:=1;P".SUIV:=L; AJOUTLIST:=P; ENS 
D; 


FUNCTION AJOUTCELL (A:PARBRE;C:PCELL) :PCELL; 


VAR P:PCELL; 
BEGIN NEW(P);P*.ADRC:=A;P*.SUIV:=C; AJOUTCELL :=P ; EN] 


D; 


:PREJ 





FUNCTION AJOUTREGLE (C:PCELL;A:PLISTE;R:PREGLE) 


-GLE; 


VAR P:PREGLE; 
BEGIN NEW(P};P*.CONDIT:=C;P".ACTION:=A;P".SUIV 
AJOUTREGLE :=P ; END; 





FUNCTION EXISTE(1:INTEGER) : BOOLEAN ; 

VAR LSTB:PLISTE; 

BEGIN LSTB:=BASE; 

MBILE (LSTB<>NIL) AND (I<>LSTB“.ADRI) DO LSTB:=LST| 
B*.SUIV; 

EXISTE :=NOT (LSTB=NIL) ; 

END; 


FUNCTION PLACER (I :INTEGER;AFF ICE :CEAR) : BOOLEAN; 
VAR S:STRING; 
BEGIN 
IF AFFICH="D' THEN S:='On en deduit * 
ELSE S:='On place le fait ‘; 
IF EXISTE(I) THEN PLACER:=FALSE 
ELSE BEGIN BASE:=AJOUTLIST (1, BASE) ; PL] 
ACER:=TRUE; MRITELN; 
MRITELN(S,INV,* *,BFII]," *,NORM] 
}:WRITELN; 
END; 
END; 


PROCEDURE ENLEVE (1:INTEGER;VAR X:PLISTE) ; 
VAR Y, YPREC:PLISTE; 
PASVU: BOOLEAN; 
BEGIN Y:=X;YPREC:=X;PASVU:=TRUE; 
MAILE (Y@NIL) AND PASVU DO BEGIN 
IF I=Y*.ADRI TBEN IF Y=X THEN BEGIN X:=X".5/ 
UIV:;PASVU :=FALSE; END 
ELSE BEGIN PASVU:=FALSE; YP/ 
REC" .SUIV:=Y".SUIV; 





END; 
YPREC:=Y;Y:=Y".SUIV:; 
END; 
END; 
(* ——- Les procedures de construction de l'arbre dJ 
e conditions —- *} 


PROCEDURE CONSTRUIRE (DEPART:STRING;VAR EXPR:PARBRE; 
VAR N:INTEGER) ; 
CONST PASNOMBRE=990 ; 
VAR NUCAR :INTEGER; 
CAR :CHAR; 


PROCEDURE LICAR; 


BEGIN 
IF NUCAR<®=LENGTE (DEPART) THEN BEGIN CAR :=DEPART [NU/- 
CAR] ; NUCAR :=NUCAR+ 1; 
IF CAR=" ‘ TBEN LICAR; 
END; 
END; 


PROCEDURE EXPRESSION (VAR EXPR:PARBRE; VAR N:INTEGER] 
}; FORWARD; 


PROCEDURE NBRSS(VAR PNB:PARBRE;VAR N:INTEGER) ; 
VAR ENS:SET OF ‘0'.."9"; 

V:PARBRE; 

P, FEUILLE: INTEGER; 
BEGIN ENS:={"0".."9"];FEUILLE:=0;P :=NUCAR; 
WBILE CAR IN ENS DO BEGIN FEUILLE :=10#FEUILLE+ORD (| 
CAR) -ORD (0°); 

LICAR; END; 
NEN(V) ;V*.FG:=NIL;V*.FD:=NIL; 
IF NUCAR=P THEN V”.INFO:=PASNOMBRE 
ELSE BEGIN V*.INFO:=FEUILLE;N:=N+1;END; 

PNB:=V; 
END; 


PROCEDURE MERR (I : INTEGER) ; 

BEGIN NRITELN (SON) ; 

CASE 1 OF 
1: WRITELN (‘Erreur de syntaxe, il peut manquer une 
1 °)S 
2: WRITELN (‘Erreur de syntaxe, il peut manquer unel 
LE id à} 

END; 

WRITELN (SON) ; 

END; 


PROCEDURE FACTEUR (VAR FACT:PARBRE; VAR N:INTEGER) ; 
VAR V1:PARBRE; 








N1:INTEGER; 


BEGIN Ni:-0; 
NBASS(V1,N1); 
IF (V1*.INFO<>PASNOMBRE) THEN BEGIN FACT EU :N = NL) 
END 
ELSE BEGIN 
IF CAR='(" THEN BEGIN LICAR;| 
EXPRESSION (V1, N1) ; 
IF CAR=")' TREN BEGIN L| 
ICAR; 
FACT:=V1;N:=N1; 
END ELSE MERR(1); 
END ELSE MERR(2); 
END; 
END; 


PROCEDURE TERME(VAR TER:PARBRE; VAR N:1INTEGER) ; 
VAR N1,N2:INTEGER; 
V1, V2,V:PARBRE; 
BEGIN N1:=0;:N2:=0; 
FACTEUR (V1, N1); 
WEBILE (CAR='.'} DO BEGIN LICAR; FACTEUR (V2, N2) :NEM(J 





V):V*.INFO:=ET; 
VA. PG:=V1;V*. FD := V2; N1:œN L4N2 V1 im; 
END; 

TER: =V1;Ni=N1l; 

END; 


PROCEDURE EXPRESSION; 
VAR N1,N2:INTEGER; 
V1,V2,V:PARBRE; 

BEGIN N1:=0;N2:=0; 

TERME (VI,N1); 

WBILE (CAR="+"}) DO BEGIN LICAR;TERME(V2,N2) 2NEW (VI 

3V°. INFO: =OU ; 
VA. FG:=V1;V".FD:=V2;NLI=eNLEN2; Vie V; 
END; 

EXPR:=V1;N:=N1; 

END; 


BEGIN (* construire *) 
NUCAR:=1;EXPR:=NIL; N :=0 ; 

LICAR; EXPRESSION (EXPR, N) ; 

END; (* fin ; appel de plcondit *} 


{* ---—-- La deduction : chainage avant ———-- *} 


FUNCTION TESTREGL (RÈGLE : PREGLE) : BOOLEAN; 


VAR X:PCELL; 
VRAI : BOOLEAN ; 


FUNCTION TESTARB (RAC :PARBRE) : BOOLEAN ; 
VAR TEST:BOOLEAN; 
INFORAC: INTEGER; 
BEGIN INFORAC:=#RAC*. INFO; 
CASE INFORAC OF 
ET : IF TESTARB(RAC*.FG) TEEN TEST: "TESTARE (RAJ 
C*.FD) 
ELSE TEST:=FALSE; 
QU : IF NOT(TESTARB(RAC".FG)) THEN TEST : =TESTAÏ 
RB(RAC".FD) 
ELSE TEST:=TRUE; 
END; 
IF INFORAC IN [1..NBFAITS] THEN TEST:=MEMBRELIST| 
{INFORAC, BASE) ; 
TESTARB:=TEST; 
END; 


BEGIN X:=REGLE*.CONDIT; VRAI : “TRUE; 
WEILE (X<>NIL) AND VRAI DO IF TESTARB(X".ADRC} TBE] 
N X:=X".SUIV 

ELSE VRAI:=FALSE; 
TESTREGL:=VRAI; 
END; (* TESTREGL *) 


FUNCTION UTILISE (RÈGLE : PREGLE) : BOOLEAN; 
VAR CONCLUSION :PLISTE; 
VRAI : BOOLEAN ; 

BEGIN CONCLUS ION:=REGLE*. ACTION; VRAI :=FALSE; 

WEILE (CONCLUSION<>NIL) DO BEGIN 
IF PLACER (CONCLUSION*.ADRI, ‘D'J 
)TBEN VRAI:=TRUE; 
CONCLUS 1ON :=CONCLUSION*. SUIV; 
END; 

UTILISE: =VRAI; 

END; 


PROCEDURE DEDUIT; 
VAR CONTINUER : BOOLEAN ; 


FUNCTION CHAINAVANT : BOOLEAN ; 
VAR LSTR:PREGLE; 
VRAI : BOOLEAN ; 

BEGIN LSTR:=REGLES ; VRAI :=FALSE; 

WAILE (LSTR<>NIL) DO BEGIN 
IF TESTREGL(LSTR) THEN IF U 
TILISE(LSTR) THEN VRAI :=TRUE; 
LSTR:=LSTR* .SUIV; 
END; 

CBAINAVANT : =VRA I; 

END; 


BEGIN 
REPEAT CONTINUER:=CHAINAVANT;UNTIL NOT (CONTINUER) ; 
END; 


PROCEDURE DEDUIRE; 








VAR EYPOTHESE, 1:INTEGER; 


FUNCTION POSSIBLE: BOOLEAN; 
VAR OK:BOOLEAN; 
BEGIN 
OK:= (HYPOTHESE IN (0..NBFAITS)); 
IF NOT OK TEEN WRITE (SON); 
IF HYPOTHESE<10 THEN WRITE(BS,' ‘',BS) 
ELSE WRITE(BS,BS," ‘,BS,BS); 
POSSIBLE :=OK; 
END; 


BEGIN 
WRITE (HOME) ; 
MESS (0,3, ‘Donner vos hypothèses sous forme d''entif 
ers (0 pour quitter) .',0); 
WRITELN; WRITELN; 
REPEAT PRENENTIER(2, HYPOTBESE) ;UNTIL POSSIBLE; 
1F HYPOTHESE<>0 THEN BEGIN L:=l;WRITELN(I:2," : ",] 
BF{HYPOTHESE) ) ; END; 
WHILE (BYPOTHESE<>0) DO BEGIN BASE:=AJOUTLIST (EYPO[ 
THESE, BASE) ; WRITELN; 
REPEAT PRENENTIER (2, HYPOTBESE) ;UNT| 
IL POSSIBLE; 
IF HYPOTHESE<>0 THEN BEGIN li=141; 


WRITELN(I:2," + ‘, BF) 
(EYPOTHESE) } ; 
END; 
END; 
DEDUIT; 
END; 
{* — - L' induction : chainage arriere ———--- *) 





FUNCTION PROUVREGLE (LSTR:PREGLE) : BOOLEAN ; FORWARD; 


FUNCTION VERIFIER (FAIT :INTEGER) : BOOLEAN; 
VAR LSTR:PREGLE; 
FAUX, I : BOOLEAN; 
C:CHAR; 
BEGIN FAUX :=#TRUE;LSTR:=REGLES ; 
IF MEMBRELIST(FAIT, BASE) THEN FAUX:=FALSE 
ELSE MHILE (LSTR<>NIL} AND FAUX DO 
IF MEMBRELIST(FAIT,LSTR".ACTION) TBEN IF PROUVREGL] 
(LSTR) THEN FAUX:="FALSE 
ELSE LSTR:=#LSTR" .SUIV 
ELSE LSTR:=LSTR".SUIV; 


1F FAUX AND (NOT (MEMBRELIST (FAIT, QUESTIONS) } } THEN 
BEGIN WRITELN; 
WRITE ('le fait ‘,INV,' ‘,BF{[FAIT],' | 
,NORM,' est-il vrai ? ‘}); 
IF OUI THEN BEGIN WRITELN;1:=PLACER (F/ 
AIT, 'C');FAUX:=PALSE; 
END ELSE QUESTIONS :=AJOUTLI ST (FAIT] 


» QUESTIONS) ; 
END; 
VERIFIER:=NOT FAUX; 
END; 


FUNCTION PROUVARB (RAC : PARBRE) : BOOLEAN; 
VAR INFORAC: INTEGER; 
BRAC :BOOLEAN; 
BEGIN 
INFORAC :=RAC* . INFO; 
CASE INFORAC OF 
ET : IF PROUVARB(RAC*.FG) THEN BRAC :=PROUVARB (RAJ 
C*.FD} 
ELSE BRAC:=FALSE; 
OU : IF NOT(PROUVARB (RAC*.FG})) THEN BRAC:=PROUVAJ 
RB (RAC*.FD) 
ELSE BRAC:#TRUE; 
END; 
IF INFORAC IN [1..NBFAITS] THEN BRAC:=VERIFIER(IN] 
FORAC) ; 
PROUVARB : “BRAC; 
END; 


FUNCTION PROUVREGL; 
VAR LSTCAS :PCELL; 
VRAI, 1:BOOLEAN; 
LACT:PLISTE; 
BEGIN LSTCAS :=LSTR" .CONDIT; VRAI : “TRUE; 
WAILE (LSTCAS<>NIL) AND VRAI DO 
IF PROUVARB (LSTCAS".ADRC) THEN LSTCAS :=) 
LSTCAS* ,SUIV 
ELSE VRAI:=FALSE; 
PROUVREGLE : «VRAI ; 
IF VRAI THEN BEGIN LACT:=LSTR" .ACTION; 
WAILE (LACT<>NIL) DO BEGIN 1:=PLACER (J 
LACT* .ADRI, 'D'‘); 
ENLEVE (LACT* .ADRI, QUESTIONS) ; 
LACT:=#LACT®.SUIV; 
END; 
END; 
END; 


PROCEDURE CONFIRMER; 
VAR 1:INTEGER; 
BEGIN WRITE (HOME) ; 
REPEAT 
GOTOXY (0,3); 
WRITE('Que voulez-vous démontrer (1. 
") 2? ‘);PRENENTIER(2,1); 
IF NOT(I IN [1..NBFAITS]) THEN BEGIN WRITE (SON); 
1F 1>9 THEN WRITE(BS,BS,' ‘,BS,BS) 
ELSE WRITE(BS,* ‘,BS); 


.",NBFAITS, | 
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END; 

UNTIL I IN [l..NBFAITS]; 

WRITE (HOME) ;WRITELN ("A MONTRER : ‘,BF[1]); 

IF VERIFIER(I) TBEN BEGIN WRITELN; 
WRITE('L''hypothèse ‘,INV,' ",BF(1]); 
HRITELN(' ',NORM,' a été démontrée .'}; 

END ELSE BEGIN WRITELN; 

WRITELN (SON, "Hypothèse non prouvée}; 
END; 

END; 


Un ‘bug’ dans le 
“carnet d'adresses” 
du numéro 27. 





Les utilisateurs d'Apple //e 
étendus ont certainement 
constaté que, sur leur 
machine, le programme 
“Carnet d'adresses” publié 
dans le numéro 27 de Pom's 
un petit défaut : le composeur 
téléphonique ne fonctionne 
pas. Pour pallier cela, la 
variable IC de la ligne 10240 
doit être mise à zéro. 


Un grand merci à Monsieur 
Guyot - Sainte Eulalie en 
Born - 40200 Landes, qui 
nous a indiqué ce défaut. 





(* --—- les procedure de lecture des regles —--- *) 


PROCEDURE PLCONDIT(S:STRING; VAR LST:PCELL) ; 
VAR LG,I,J,N :INTEGER; 
NPROD, FAUX : BOOLEAN ; 
DEPART:STRING; 
EXPR :PARBRE; 
DJ,U,X :PCELL; 
V,Y :PLISTE; 
BEGIN LG:=LENGTE (S) ;LST:=NIL;X:=NIL;YI=NIL; Liml;Jif 
1; NPROD:=TRUE; 
REPEAT 
WAILE (I<=LG) AND NPROD DO IF S{(1]='*' THEN NPRO| 
D:=FALSE 
ELSE I:=1#1; 
DEPART :=COPY (S,J, 1-J) ; CONSTRUIRE (DEPART, EXPR, N) ; 
IF (NOT(NPROD))OR(J<>1) THEN BEGIN X:=AJOUTCELL ([ 
EXPR, X) ; Y:="AJOUTLIST (N, Y}; 
Jiml+1;1:=1+1;NPROD:=TRUE; 
END ELSE LST:=#AJOUTCELL (EXPR, LST) :l 
(* On place la sol *) 
UNTIL (1>LG); 
IF X<>NIL THEN BEGIN DJ:=NIL; 
REPEAT Vi=Y;U:=X;N:=0; 
WAILE (U<>NIL) DO IF MEMBRECELL (U* .ADRC, DJ 
J} THEN BEGIN 
V:=V*,SUIV; 
U:=U*", SUIV; 
END ELSE BEGIN 
IF V".ADRI>N THEN N:=V*,ADRI; 
VimV®,SUIV;U:=U".SUIV; 
END; 
IF N<>0 THEN BEGIN U:=X;V:=Y;FAUX:=#TRUE; 
WAILE (U<>NIL) AND FAUX DO 
1F MEMBRECELL (U*.ADRC, DJ) THEN BEGIN l 
U:=U",.SUIV; 
V:=V*.SUIV; END 
ELSE 
IF V*.ADRI=N THEN FAUX:=FALSE 
ELSE BEGIN 
U:=U*.SUIV; V:=V*, SUIV;END; 


IF NOT FAUX TEEN DJ:=AJOUTCELL (U*.AJ 
DRC, DJ) ; 
END; 
UNTIL N=0; 
LST:=DJ; 
END; 
END; 


PROCEDURE PLACTION(S:STRING; VAR ACT:PLISTE) ; 
VAR ENS:SET OF ‘0'..'9"; 
L:PLISTE; 
LG, N, 1: INTEGER; 


BEGIN L:=NIL;ENS:=["0'.."9"];LG:=#LENGTE(S);1:=1; 
MEILE (I<LG) DO IF S[I) IN {" ‘,".',"(",")'] THEN | 
Iiæl+i 





ELSE BEGIN N:=0; 
MAILE S[I) IN ENS DO BEGIN N:=10*N+OR] 
D(S(1])-ORD({"0'};1:=14#1;END; 
IF (N<>0) THEN L:=AJOUTLIST(N, L) 
ELSE WRITELN ('Erreur d''ecr| 
iture dans ',S,CER(7)}; 
END; 
ACTi-L; 
END; 


PROCEDURE LIREREGLE; 
VAR CHACT, CECONDI, LN : STRING; 
FAUX : BOOLEAN ; 
I :INTEGER; 
LST:PCELL; 
ACT, PL:PLISTE; 
BEGIN LIRE(LN) ; FAUX:=TRUE; 1 :=LENGTE (LN) #WRITELN ('-J 
> ‘rLN); 
WAILE (1I>0) AND FAUX DO IF LN{(I]="'>" THEN FAUX:=FA/ 
LSE 
ELSE 1:=1-1; 
IF 1>0 THEN BEGIN CHACT:=COPY(LN, 1+1,LENGTH(LN)-1) ; 
CHCONDI:=COPY(LN,1,1-4); 
(* on peut ajouter un NAILE qui enlevel 
les blancs finaux +} 
END ELSE CHACT:=LN; 
PLACTION (CHACT, ACT) ; 
IF 1=0 THEN BEGIN PL:=#ACT; 
WAHILE (PL<>NIL) DO BEGIN BASE :=AJOUTLI| 
ST(PL*.ADRI, BASE) ; 
PL:=PL*,SUIV;END; 
END ELSE BEGIN PLCONDIT (CHCONDI, LST) ; 
REGLES :=#AJOUTREGL (LST, ACT, REGLES) ; 


END; 
END; 
(* — Procedure de verification de construction del 
s arbres _*) 





PROCEDURE ECRITEST; 
VAR R:PREGLE; 


PROCEDURE ECRIARB (RAC: PARBRE) ; 
BEGIN 
IF RAC<NIL THEN 
IF RAC*.INFO=ET THEN BEGIN 
IF RAC".FG*.INFO=OU THEN BEGIN WRITE("('); 
ECRIARB (RAC* .FG)| 
FWRITE(').")s 
END ELSE BEGIN ECRIARB (RA| 
C°.FrG); 
WRITE ('.") END; 
IF RAC".FD*.INFO=OU THEN BEGIN MRITE(‘('); 
ECRIARB (RAC* .FD)f 
3MRITE (')"); 
END ELSE BEGIN ECRIARB (RAJ 
C*.FD) ; END; 
END 
ELSE BEGIN ECRIARB (RAC".FG); 
IF RAC*.INFO=OU THEN WRITE('+") 
ELSE WRITE (RAC*. INFO) ; 
ECRIARB (RAC* . FD) ; 
END; 
END; 


PROCEDURE ECRIREGLE (R:PREGLE) ; 
VAR X:PCELL; 
Y:PLISTE; 
BEGIN Xi=R".CONDIT; 
WAILE (X<>NIL) DO BEGIN WRITE(" (‘):ECRIARB(X*.ADRC| 
):WRITE(‘}'); 
X:=X".SUIV;1F (X<>NIL) THEN WRITE('*'); 
END; 
WRITE(' ==> (‘);Y:=R*.ACTION; 
WAILE (Y<>NIL) DO BEGIN NRITE(Y*.ADRI);Y:=Y*.SUIV; 
IF (Y<>NIL) THEN NRITE('.'); 
END; 
WRITELN () ‘) ;WRITELN; 
END; 





BEGIN (* ecritest *) 


R:=REGLES; 
WAILE (R<>NIL) DO BEGIN ECRIREGLE (R):R:=R".SUIV:EN[ 
D; 
END; 
Ce —— PROGRAMME PRINCIPAL ==—-—mmmmmm… *} 
BEGIN 
INIT;DEDUIT; 
BASEREF : "BASE ; QUESTREF :=QUESTIONS; 
REPEAT 
NRITE (HOME) :MESS (20,1, MENU GENERAL ",6) ;WRITE] 
LN;WRITELN; 
WRITE('Chonfirmer Djéduire  Qjuitter >| 


"Ja 
CO:=PRENCAR (['C',‘D','Q','c','d','q']}; 
BASE:=BASEREF ; QUESTIONS :=QUESTRE ; 
CASE CO OF 
*C','e' :CONFIRMER; 
"D','d' :DEDUIRE; 
END; 
WRITELN:WRITELN;IF CO IN ['C','D','c','d'] THEN] 
PRENRETURN; 
UNTIL CO IN ['Q','q'): 
END. 











Micro-Informations 


Et si 1987 était l'année du 
Macintosh ? C'est visible- 


ment le souhait exprimé à 


Cupertino où le construc- 
teur à la pomme finit de 
fourbir les armes qu'il 
dévoilera cette année et qui 
devraient lui assurer l'avan- 
tage dans un monde de la 
micro-informatique débous- 
solé par les incertitudes du 





Parmi toute une salve de 
nouveaux produits, dont les 
premiers sont apparus en ce mois 
de janvier (et notamment les 
imprimantes laser de bas et de 
haut de gamme), la vraie 
nouveauté chez Apple sera en 
1987 ce Mac “ouvert”, dont 
l'apparition est prévue pour le 
mois de mars. Un Mac ouvert, 
parce qu'on pourra ajouter à la 
machine toutes sortes de cartes 
supplémentaires, d'extensions de 
mémoire, de processeurs graphi- 
ques ou sonores. Et renouer ainsi 
avec l'ancêtre, cet Apple // qui fit 
la fortune de Wozniak et Jobs, les 
créateurs d'Apple. Les posses- 
seurs d'Apple // ne seront pas 
oubliés. D'abord parce que le 
nouvel Apple IIGs sortira cette 
année à une vraie cadence 
industrielle des usines d'Apple. 
Ensuite parce que tous les 
nouveaux programmes permettant 
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d'exploiter au mieux ses raffine- 
ments sonores et graphiques vont 
se bousculer dans les catalogues. 
Tout comme les perfectionne- 
ments matériels des fabricants de 
“add-on”. Message personnel aux 
possesseurs d'Apple // : ne 
bradez pas vos machines, 
quelque chose me dit qu'Apple 
pourrait rééditer avec l'Apple // 
l'opération de mise à niveau à 
laquelle elle avait procédé pour le 
MacPlus et ce pour un prix 
intéressant (on parle de moins de 
5000 Francs pour l'échange de la 
carte). Espérons seulement que 
l'attente sera moins importante 
que pour les utilisateurs de 
Macintosh. 


Revenons à celui-ci, qui pourrait 
bien être la machine dont on va le 
plus parler cette année. Un mot 
d'abord sur ces mises à niveau : 
aux États-Unis, de nombreux 
Mac convertis en MacPlus ont 
connu des problèmes d'alimenta- 
tion qu'il a fallu remplacer. 
Apparemment, les conversions 
ont été mieux pratiquées en 
France, car ce problème ne 
semble pas être apparu chez 
NOUS. 


L'Apple de demain 
décrit aujourd'hui... 


La grande question pour tous les 
passionnés d'Apple consistait à 
prévoir avant sa sortie l'appa- 
rence et les performances du 
nouveau Mac “ouvert”. On a vu 
paraître tellement d'informations 
à ce sujet qu'on pensait ne plus 
rien ignorer des caractéristiques 
de la machine : processeur plus 
puissant et rapide Motorola 
68020, port d'extension ‘nubus”, 
coprocesseur arithmétique 68881, 
mémoire vive standard de 4 
Méga-octets. Une autre méthode 
pour prévoir les caractéristiques 
des machines du futur consiste à 


examiner ce que les fabricants de ‘ 
cartes et de périphériques mijotent 
pour la machine d'aujourd'hui : 
ces “superflus” seront souvent le 
“nécessaire” de la nouvelle 
machine. À ce jeu on pourrait 
prévoir, presque à coup sûr, pour 
le nouveau Mac un écran de 
grand format pouvant afficher 
une page pleine (au format 
21,5cm sur 27,9cm) voire deux. 
Quelque chose me dit même que 
le Mac nouveau pourrait (en 
option, bien sûr) être doté de la 
couleur. Eh oui de la couleur, 
celle qui fait tant défaut, pour 
concurrencer complètement les 
IBM. Impossible ? Pas tellement : 
d'abord parce que les mémoires 
mortes du Mac contiennent tout 
ce qu'il faut pour cela, que les 
programmeurs des derniers logi- 
ciels parus ont prévu (souvent 
sans le dire) cette possibilité. 


Enfin, parce qu'un constructeur 
(Vernont Microsystems) avait 
conçu, construit et vendu dès 
l'année passée un moniteur 
couleur “intelligent” le VM 8861 
permettant d'afficher simultané- 
ment 256 couleurs choisies parmi 
une palette de 4096. 


Mais la couleur n'est pas 
seulement le moyen de “griller” 
l'IBM. Ce n'est plus ce créneau 
que l'on vise chez Apple. Dans la 
ligne de mire du fabricant de 
Cupertino, on vise les “stations 
de travail” du type Sun 
Microsystems et autres. C'est à 
ce marché-là que le Mac ouvert 
(parfois baptisé Paris) aura la 
tâche de s'attaquer. Avec pour les 
afficionados deux conséquences 
mitigées. La première c'est que 
par rapport à ces systèmes 
extrêmement onéreux, le Mac en 
donnera incontestablement “plus 
pour chaque dollar dépensé”. 
Mais il faut garder en mémoire 
que ces engins coûtent 


actuellement des fortunes (plus de 
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250 000 F). Le Mac ouvert 
proposera des possibilités analo- 
gues pour beaucoup moins cher. 
Probablement 40 à 60 000 F. Ce 
qui mettra quand même cet 
ordinateur, et c'est la seconde 
conséquence, bien moins 
agréable, hors de la portée de 
toutes les bourses. Mais Apple 
n'a jamais été un constructeur 
vendant des micro-ordinateurs 
bon marché, is'nt it ? 


Le portrait robot du nouveau 
Mac, c'est donc celui d'une de 
ces “stations de travail”, 
(connectables à des ordinateurs 
VAX) qui font fureur et font la 
fortune des constructeurs. À quoi 
servent-elles donc ? La question 
est importante, car de sa réponse 
vont découler les fonctionnalités 
du Mac nouveau. Ces stations de 
travail sont employées pour des 
études graphiques et des 
prototypes, pour concocter des 
études techniques et réaliser des 
documents et, enfin, à commu- 
niquer des informations. CAO, 
modélisation et graphiques d'un 
côté, édition personnelle et enfin 
communications : voici comme 
par hasard les thèmes généraux 
des derniers programmes sortis 
pour le Macintosh Plus 
d'aujourd'hui, et les domaines où 
il fera fureur avec son successeur 
cette année. 












Des communications 
plus rapides et 
plus faciles 


Juste un détail technique pour 
souligner l'importance du dernier 
cité de ces secteurs : la 
communication. La filiale de la 
firme Du Pont de Nemours 
spécialisée dans la connectique 
vient de produire un connecteur et 
un réseau à base de fibres 
optiques se substituant aux 
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connecteurs et aux fils classiques 
AppleTalk. Avantage : les trans- 
ferts de données s'effectuent sur 
des distances importantes 
(jusqu'à 1,5 Km) et à un débit de 
600 kilobits par seconde (contre 


238,6 pour AppleTalk, soit 


environ trois fois plus vite) et on 
prévoit de passer bientôt à un 
débit de 1,5 à 3 Mégabits par 
seconde (encore 3 à 5 fois plus 
vite), par le port SCSI. Ces 
vitesses considérables sont indis- 
pensables pour pouvoir faire 
travailler ensemble des micro 
ordinateurs, comme tous ceux qui 
les ont branchés en réseaux et 


piétinent devant les lenteurs des | 


transferts actuels, ont pu le 
constater. 


Les réseaux constituent un 


domaine essentiel de l'avenir du. 


Mac. Aux États-Unis, Farallon 
Computer a développé le réseau 
Phone Net avec un contrôleur 
vendu 1000 dollars et permettant 
de relier 12 Mac par des fils 
simples torsadés jusqu'à 1 km de 
distance. 


Apple va d'ailleurs venir cette 
année à la rescousse en 
fournissant dès le printemps un 
logiciel de serveur de réseaux aux 
performances qu'on dit déjà 
spectaculaires. 


La liaison sur un réseau commun 
de Mac et d'IBM PC n'a déjà 
plus rien d'étonnant grâce aux 
prodiges réalisés par TOPS le 
fantastique système développé 
par Centram. Cette firme a récem- 
ment développé de nouveaux 
perfectionnements permettant 
d'une part de faire fonctionner 
l'ensemble sous le système 
UNIX, et d'autre part d'autoriser 
les IBM PC du réseau à imprimer 
directement sur la Laser Writer 
d'Apple. 


Parmi les produits qui installent 
les Mac sur des réseaux, il faut 
encore noter Intermail, le système 
de courrier électronique 
d'Internet. Un système qui 
s'installe en accessoire de bureau 
et permet d'envoyer un message, 
immédiatement ou à une date 
choisie, de transférer des fichiers, 
pour un coût de 300 dollars (pour 
1 à 4 utilisateurs), de 500 dollars 


(5 à 10 connectés), 750 (pour 11 
à 20) etc. 


Dans le même esprit, citons 
Symbmail, la messagerie de 
Symbiotic, pour passer messages 
et fichiers entre plusieurs 
Macintosh d'un même réseau 
AppleTalk 





Et puis, pour finir ce panorama 
des communications, trois 
produits français : 

«Charité bien ordonnée...», 
citons d'abord Interpom”s 
programme gratuit pour vous qui 
avez Pom'’s entre les mains ou à 
60 et 80 Francs sous forme de 
disquette Apple // ou Mac, 
programme qui utilise le modem 
du Minitel pour transmettre tous 
fichiers ou applications entre 
Mac, entre Apple // et même entre 
les deux types de machines. Les 
fichiers sont recréés à l'arrivée 
avec tous leurs attributs (types, 
icônes.…..). Qualité Pom’s. 

Le deuxième, Self Serve d'ACI 
est un logiciel permettant de créer 
un serveur Minitel en utilisant des 
modems branchés en cascade (et 
notamment les Diapasons d'Hello 
Informatique). 


Le dernier, TransLine édité par 
Bruno Rives & Associés, est un 
logiciel de communication. Sa 
caractéristique principale : il n'est 
pas un émulateur de terminal. Il 
peut donc être utilisé dans 
n'importe quelle application ou 
presque pour transmettre ou 
recevoir des données, qui sont 
automatiquement converties au 
format de l'application qu'on 
utilise, pour remplir des tableaux 
ou récupérer des textes. On peut 
aussi communiquer entre ordina- 
teurs par câbles (envoyer ainsi 
des documents MacDraw ou 
autres d'un Macintosh à l'autre). 





Un outil d'édition 
et de publication 


1986 a révélé toutes les 
possibilités du Macintosh dans le 
domaine de la publication assistée 
par ordinateur. Et la décision 
d'Apple de ne plus livrer en 
standard MacWrite a libéré 
l'imagination de tous les auteurs 
de traitements de textes. Résultat : 


il pleut des traitements de textes et 


des logiciels de mise en page. 





Une pluie de 
traitements de textes 


Le plus original est 
incontestablement FeiMa 
d'Unisource. Et pour cause : 
c'est le premier traitement de 
textes en chinois pour le Mac. Il 
utilise la souris pour sélectionner 
les caractères de préférence au 
clavier, permet de bénéficier d'un 
dictionnaire de caractères pré- 
dessinés, d'en ajouter d'autres. 
On peut aussi utiliser la méthode 
phonétique transformant des sons 
anglais en caractères chinois, et 
combiner dans un texte idéo- 
grammes et caractères européens. 
Seul défaut : il n'imprime pas sur 
la Laser Writer. Prix 195 dollars 
pour une version abrégée et 545 
dollars pour la version complète. 


Pour certains, les caractères 
techniques seraient presque aussi 
compliqués que du chinois. C'est 
à eux que s'adresse TechScriber 
de Mansfield Systems. Plus que 
d'un traitement de textes, il s'agit 
presque d'un système de mise en 
page pour documents techniques 
permettant notamment d'entrer 
facilement les tables, expressions 
mathématiques compliquées, et 
de réaliser des manuels techni- 
ques comprenant diagrammes, 
éléments graphiques, etc. Prix : 
395 dollars. 


Il n'est d'ailleurs pas rare que les 
traitements de textes deviennent 
de vrais outils d'édition. C'est 
aussi le cas pour Word 3.0, la 
nouvelle version du traitement de 
textes vedette de Microsoft, 
appelée sûrement à un brillant 
avenir. Word comprend tout ce 
qu'on peut souhaiter dans un 
traitement de textes : correcteur 
orthographique incorporé, pro- 
cesseur d'idées lui aussi intégré, 
génération automatique d'index et 
de tables des matières, écriture en 
colonnes et possibilité d'entourer 
un texte, possibilité de visualiser 
sur l'écran une ou deux pages 
telles qu'elles seront finalement 
imprimées, possiblité de tourner 
sous Tops ou Ethernet, d'échan- 
ger des données avec les PC 
d'IBM en convertissant les 
fichiers au format DCA d'IBM, 
etc. Le tout pour 395 dollars. À 
noter encore qu'aux États-Unis, 
Word 3.0 serait livré avec la 
dernière version (5.1) du 
Switcher d'Apple permettant 
notamment lorsque l'on change 
un détail dans une des 
applications (par exemple à 
l'intérieur de MacPaint, dans un 
dessin transporté dans Word, de 
voir cette modification se réaliser 
automatiquement sur le dessin 
qu'on avait copié dans Word). 
Autre futur best-seller, Write 
Now de T/Maker auquel Steve 
Jobs a prêté la main. Un 
traitement de textes comprenant 
un correcteur orthographique de 
50 000 mots, l'ouverture 
simultanée d'un nombre illimité 
de documents, l'installation de 
une à quatre colonnes, la 
possibilité d'inclure des 
graphiques dans une ligne ou une 
phrase. Le tout avec la facilité de 
MacWrite et plus rapidement. Et 
pour 175 dollars. 


Quant à MindWrite de MindWork 
Software, vendu seulement 125 
dollars, il combine également un 
traitement d'idées et un traitement 
de textes. On dispose ainsi d'un 
traitement d'idées offrant toutes 
les facilités d'un MacWrite, 
permettant d'organiser tout en 
écrivant, et de voir à l'écran le 
résultat tel qu'il sera imprimé, de 
disposer d'une numérotation 





automatique des paragraphes, 
d'un compteur de mots, de 
caractères ou de paragraphes, de 
la faculté de déplacer une partie 
de texte avec la souris, sans 
recourir au copier coller, etc. 


Full Write d'Ann Arbor 
Softworks (les créateurs de Full 
Paint) est un processeur de 
documents. En clair, il contient 
aussi des fonctions d'édition 
électronique. Parmi lesquelles, 
les possibilités d'utiliser des 
colonnes multiples de tailles 
différentes sur une page, 
d'enrouler automatiquement le 
texte autour de dessins aux 
formes irrégulières. Un module 
permet aux utilisateurs d'un texte 
d'inclure des notes dans un 
document pour les envoyer à 
l'auteur (ce module permettant de 
réaliser sur ordinateur ces petites 
notes adhésives de style Post-It 
pourrait d'ailleurs être versé par 
ses auteurs dans le domaine 
public). Full Write qui combine 
des fonctions d'édition qui ne 
figurent pas dans les traitements 
de textes et des fonctions 
sophistiquées de traitements de 
textes sera vendu environ 300 
dollars. 


Haba Word d'Haba Systems, qui 
a été offert pour 69 dollars aux 
possesseurs de MacWrite ou 
Word, permet, lui, 3 colonnes de 
tailles différentes sur une page, 
divise les fenêtres en quatre 
morceaux pour voir d'un coup 
plusieurs parties d'un texte, 
affiche à l'écran quatre pages en 
réduction comme elles seront 
imprimées. 


Parmi les traitements de textes 
annoncés, on peut encore citer 
Parangon Word, de Parangon 
Courseware développé autour 
d'un éditeur de textes que certains 
utilisateurs du Mac connaissent 
sous le nom de Qued, promis 
pour juin 1987. 


Des programmes 
d'édition électronique 
plus complets 


Puisque les traitements de textes 
empruntent les possibilités gra- 
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RE 


phiques des programmes d'édi- 
tion, rien d'étonnant s'il ne 
manque plus aux programmes 
d'édition électronique les facilités 
des traitements de textes. Ainsi de 
Ready Set Go de Manhattan 
Graphics (distribué en France par 
BIP) dont la dernière version 3.0 
est un complet renouvellement. 
On y trouve même un correcteur 
orthographique (en français s'il 
vous plaît) et un guide de coupure 
de mots développé avec l'aide de 
l'Université de technologie de 
Compiègne. On peut ouvrir 
simultanément plusieurs docu- 
ments, ajuster automatiquement 
textes et graphiques dans les 
colonnes après y avoir inséré un 
bloc image ou un texte, lire 
directement des fichiers 
MacPaint, MacWrite ou Works, 
on peut y inclure des documents 
spécialement préparés pour 
PostScript. Le nombre de pages 
est illimité, avec auto-numération, 
et impression de la date et de 
l'heure, etc. 


Feu Mac Publisher est réapparu, 
vendu par la célèbre firme de 
lettrages Letraset sous le nom de 
Letra Page, perfectionné avec la 
possibilité de 48 colonnes par 
pages, un espacement des lettres 
contrôlable, une palette de 96 
motifs disponibles, et de 9 
couleurs, et lui aussi un guide de 
coupure de mots automatique, 
comprenant 93 000 mots (en 
anglais seulement pour le 
moment) etc. pour 495 dollars. 





Et le petit dernier, Solo de Mac 
America, plus simple, ressemble 
à un banal Finder sur lequel on 
ouvre les différents documents à 
assembler. Une fenêtre pour un 
texte à incorporer, une fenêtre 
pour le texte assemblé. À noter 
que le texte qu'on ne prépare ne 
montre pas le texte avec ses 
attributs (gras, taille, etc.) mais 
avec des codes. 





Des logiciels 
craphiques 


À remarquer d'abord, l'Illustrator 
d'Adobe. Si le nom d'Adobe 
n'est pas inconnu aux utilisateurs 
de Macintosh, c'est que c'est 
cette compagnie qui a développé 
PostScript, le langage de 
composition utilisé par l'impri- 
mante Laser Writer. C'est précisé- 
ment pour optimiser le fonction- 
nement de l'imprimante Laser 
qu'Adobe a développé Adobe 
Illustrator. Ce programme rend 
accessible à des utilisateurs ne 
programmant pas en langage 
PostScript certaines de ses rou- 
tines graphiques. En clair, les 
utilisateurs professionnels (et 
notamment les illustrateurs ou 
dessinateurs ) disposent ainsi de 
possibilités de dessin beaucoup 
plus professionnelles. On 
commence à dessiner dans un 
mode de dessin, depuis zéro ou 
en important une esquisse réalisée 
avec MacDraw. Ensuite, on 
dispose d'une panoplie d'outils 
pour remplir les zones à colorier, 
contrôler l'épaisseur des lignes, 
les niveaux de gris, et même les 
couleurs (pour préparer la 
séparation des couleurs sur une 
photocomposeuse Linotronic). 
Un mode permet de visualiser 
l'image réalisée avec PostScript. 
Enfin, les dessins sont stockés 
sous forme de fichiers textes 
PostScript. Ce programme très 
“pro” sera vendu à peu près 500 
dollars. 


Du côté des programmes de 
dessins, on se bouscule aussi au 
portillon. MacPaint et MacDraw 
font vraiment figures d'ancêtres. 
Voici notamment Cricket Draw de 
Cricket Software, avec possibilité 
de rotation complète de tous les 
objets, ombrages contrôlés avec 
une échelle de gris, effets 
spéciaux, le tout utilisant 
PostScript, sans apparemment y 
toucher, tout en générant du code 
dans ce langage comme le 
précédent programme . Pour 295 
dollars. 

SuperPaint de Silicon Beach 


Software est un programme qui 
voici peu aurait encore paru 


“incroyable”. On peut en effet 
travailler sur un dessin indiffé- 
remment en mode MacPaint ou en 
mode MacDraw. Ce qui permet 
de bénéficier des avantages de ces 
deux modes. On peut travailler en 
plein écran, ouvrir simultanément 
plusieurs documents, remplir des 
formes qui se poursuivent en 
dehors de l'écran, le déroulement 
de l'image sur l'écran est 
automatique, on dispose d'une 
échelle de gris de 32 niveaux, le 
texte peut être imprimé avec les 
caractères de la Laser Writer, il se 
reformate automatiquement 
lorsqu'on change les dimensions 
d'une case qui le contient. On 
peut imprimer en couleurs avec 
l'ImageWriter IL. Prix : moins de 
100 dollars. 


Quant à GraphicWorks, il est 
publié par Mindscape, l'auteur de 
Comic Works et de Music 
Works. En fait, il utilise les 
mêmes outils que Comic Works. 
Rien d'étonnant si on peut y 
utiliser toute une gamme de 
ballons et de bulles (aussi appelés 
en français phylactères). Sa 
grande force, c'est de pouvoir 
manipuler indépendamment les 
objets de premier plan et le fond 
d'un paysage, de pouvoir 
installer des dessins en 
surimposition. Prix : 80 dollars. 





À remarquer aussi la version 2 de 
MacDraft d'IDD Software. On y 
trouve notamment la possibilité 
de changer la taille des groupes et 
des bits maps de façon 
proportionnelle, un indicateur de 
position du curseur, de nouvelles 
échelles de dessin, un calculateur 
automatique de surface, et un 
choix de 64 motifs, etc. Prix : 
269 dollars. 
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Des logiciels 
techniques 


Très importants. Ces program- 
mes sont ceux où l'on voit le plus 
l'usage qu'un Mac peut avoir 
pour des scientifiques, des 
ingénieurs, bref, tous les 
utilisateurs de ces omniprésentes 
“stations de travail”. Ce sont 
ceux-ci qui permettent peut-être 
d'apprécier le mieux l'intelligence 
des programmeurs et des 
utilisateurs. Comme s'il s'agissait 
de torrents de matière grise en 
fusion. 


Voici d'abord Stella de High 
Performance Systems. Lorsque 
l'on voit dans sa publicité, le 
directeur de la recherche de 
DuPont de Nemours s'exclamer 
«Nous avons des programmes de 
2000 dollars pour nos unités 
centrales qui ne peuvent faire ce 
que Stella fait», ou encore 
l'analyste chargé du planning de 
Cray Research, le constructeur 
des plus puissants ordinateurs du 
monde expliquer que le 
programme les a aidé à 
«équilibrer les facteurs qui 
satisfont la demande de leurs 
ordinateurs avec les facteurs qui 
génèrent cette demande», on se 
dit que le programme doit être 
exceptionnel. Aucun doute, ce 
logiciel de modélisation baptisé 
Stella pour (Structural Thinking 
Experiential Learning Laboratory 
with Animation : laboratoire 
d'apprentissage expérimental de 
la pensée structurale avec 
animation) permet d'améliorer la 
façon de penser et de mettre en 
évidence des relations entre 
facteurs, comme un “Lego 
conceptuel”. On peut simuler des 
modèles pour déterminer si les 
propositions génèrent des 
comportements correspondant 
bien à l'objet qu'on avait assigné. 
Qu'il s'agisse d'analyser des 
processus de fabrication 
complexe, ou comme l'a fait 
Procter et Gamble, d'analyser des 
stratégies pour le lancement d'un 
nouveau produit. Bref, une 
manière de miracle pour 395 
dollars. 


Voici ensuite Prototyper de 
Smethers Barnes, un programme 


à sortir en février permettant de 
construire des prototypes pour 
visualiser des idées avec des 
menus des boutons et des 
fenêtres qui répondent. Sans 
avoir à programmer. 


Parameter Manager de Structural 
Measurement Systems est une 
matière de tableur spécialisé pour 
contrôler notamment les 
processus de fabrication. Utile en 
milieu industriel. Prix : 495 
dollars. 





Des classiques 
“revisités’” 


On pensait avoir tout vu en 
matière de tableurs. Et qu'après 
Excel, on aurait du mal à faire 
mieux. On peut en tout cas faire 
déja plus rapide. C'est l'objet de 
Mac Calc de Bravo Technology. 
Qui permet notamment (contrai- 
rement à Excel) de changer les 
caractères et leurs tailles dans 
chaque case. Ce tableur calcule de 
10 à 15% plus vite qu'Excel, 
permet d'inclure des annotations 
relatives à une case) et dispose 
d'un choix de fonction pour 
moins de 100 dollars. 


Quant à Trapeze, de Data Tailor, 
à paraître à la fin janvier, il 
présente la caractéristique de 
travailler en “blocs” de plusieurs 
cellules (pour lesquels le 
programme connaît les relations 
qui les unissent) et non case par 
case comme la majorité des 
tableurs. D'où la possibilité de 
faire des calculs sans se soucier 
de la position d'un bloc sur une 
page, et de réaliser des calculs 
financiers complexes (on dispose 
de 10 fonctions financières et 
d'ingéniérie dont certaines 
inédites). D'où la possibilité aussi 
de réaliser des présentations 
parfaites. 





Des utilitaires 
géniaux 


Génial, c'est bien le mot qui 
caractérise Glue de Solutions Inc. 
Ce programme permet de sauver 
sur le disque des graphiques 
venant de la plupart des 
applications pour Macintosh, et 
de les ouvrir sans avoir à ouvrir 
l'application. On peut par 
exemple sauver un graphique 
d'Excel, grâce à la partie du 
programme baptisé Image saver. 
Ensuite, on peut ouvrir ce fichier 
et visualiser le graphique ou 
l'imprimer avec l'autre partie 
baptisée le Viewer. Les fichiers 
sont facilement exportables. D'où 
la possibilité d'expédier facile- 
ment une lettre d'informations ou 
un dessins sauvés avec Glue sur 
un réseau ou par téléphone, avec 
InterPom's par exemple. Prix 49 
dollars. Vivement que cet 
utilitaire (auquel un banc d'essai 
de la très sérieuse revue 
Inforworld a attribué une note 
maximale) débarque chez nous. 


Utile, c'est 1st Aid de ist Aid 
Software qui permet de récupérer 
des fichiers endommagés de 
sauver les données de disques 
“illisibles” ou de relire des 
fichiers endommagés ou effacés. 
Un kit de 4 disques vendu 90 
dollars et que tout utilisateur de 
Mac devrait posséder. 


Du matériel 


Ces nouveaux écrans géants 
semblent désormais indispensa- 
bles pour le Mac. Après le FDP 
de Radius, voici le Big Picture de 
E Machines. C'est un écran 
permettant de visualiser simulta- 
nément deux pages sur l'écran. Il 
faut bien sûr modifier le Mac avec 
une carte qui se clippe sur le 
processeur. On peut alors 
apprécier une visualisation de 
1024 x 808 points avec une 
qualité remarquable. Pour un prix 
hélas supérieur à celui d'un 
Macintosh Plus complet. 


Un jeu 


C'est à Jean Pierre Brûlé, l'ex-Mr 
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Informatique en France (mais 
ausi champion de scrabble) que 
l'on doit Anacrack vendu par 
ACT. Un jeu basé sur l'utilisation 
de 90 000 mots avec 2 niveaux de 
vocabulaire 4 vitesses et trois 
formes de jeux rappelant les 
principes du célèbre Scrabble. 


Adresses 


Vernont Microsystems 

11 Tigan St Winooski 

VT 05404 Centram 2560 Ninth 
St, Berkeley, CA 94710 


Internet 
20 Amy Circle, 
Waban MA 02168 


ACI 
6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 


Bruno Rives & associés 
6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 42 89 02 36 


Unisource 
23 East St 
Cambridge MA 02141 


Mansfield Systems 
550 Hamilton Av. 
Suite 200 Palo Alto, CA 94301 


T/Maker 
1973 Landing Drive 
Mt View, CA 94043 


MindWork Software 
PO Box 222280 
Carmel CA 93922 


Ann Arbor Softworks 
2393 Teller Road, Suite 106 
Newbury Park, CA 91320 


Haba Systems 
6711 Valjean Ave. VanNuys 
CA 91406 


Lettraset 

PO Box 3900 Peoria, IL 61614 
Mac America 

18032C Lemon 

Dr Yorba Linda CA 92686 


Adobe 
1870 Embarcadero 
Rd N°100 Palo Alto, CA 94303 


Cricket Software 
3508 Market Street 
Suite 206 Philadelphia PA 19104 


Silicon Beach Software 
PO Box 261430 
San Diego CA 92126 
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Mindscape 
3444 Dundee Rd 





Northbrook IL 60062 

IDD Software 

1975 Willow Pass Rd Ste 8 

Concord CA 94520 

High Performance Systems 

PO BOX B1167 

Hanover NH 03755 

Smethers Barnes 

Tél. : 

(aux États-Unis) 503 24507270 

Structural Measurement Systems  1st Aid Software 

645 River Oak Pkwy 42 Radnor Road 

San Jose CA 95134 Boston Ma 02135 

Bravo Technology E Machines 

PO Box T Gilroy CA 95021 7945 S W Mohawk 

Data Tailor St Tualatin OR 97062 

1300 University Drive Suite 409  Symbiotic 

Fort Worth Texas 76107 4, ee Schumann 
: 94 arenton 

SES Tél. : 43 78 99 99 

Montpelier VT 05602 ê 





Justlextr" à l’essai 


ustText suppose la disposition d’un Macintosh et d’une Laser Writer, 

imprimante dont bien des PME sont équipées. Ce logiciel de traitement 

de textes déroute par son aspect ‘réac’ pour un programme Macintosh : 
comme avec AppleWriter, vous n’avez pas à l’écran une idée de ce que sera le 
document imprimé, tout simplement parce que l’écran ne peut donner les pos- 
sibilités de la Laser Writer ou des composeuses Linotronic. Il faut donc enrichir 
le texte de codes de contrôle parfois (!) simples à retenir. Le résultat est une ex- 
ploitation totale de imprimante : dimension et espacement des caractères, in- 
terlignes, largeur de colonnes sont réglables par point (0,35 mm), et mème 
fractions de point. 


Toutes les fonctions classiques des traitements de textes sont disponibles 
(tabulations, indentations), mais aussi les fantaisies des imprimeurs, ‘vitrine’ 
comme le premier J de ce texte, encadrer un texte ou cadrer à droite une fin de 
paragraphe. Les césures en fin de ligne sont automatiques en suivant un dic- 
tionnaire que vous enrichissez en fonction des besoins. 


Lorsque lesdits besoins dépassent JustText, vous pouvez modifier directement 
les ordres PostScript avant qu’ils ne soient envoyés à l'imprimante : les limites 
sont alors l’imagination de l’opérateur et les possibilités de la machine (voir 
Pom’s 24). 

Au chapitre regrets : l'annulation du “Coller” qui n’est que partielle, la limita- 
tion des textes à 32 Ko (pénible lorsqu’on incorpore une image dont on habille 
les contours), quelques petits ‘bugs’ tels la validation des menus, la difficulté 
d’insérer des RETURN? au début de longs textes, les À avec accent grave qui 
s’impriment À. Le mode d’emploi par l’exemple est efficace, mais en anglais. 


D’un accès peu engageant, JustText est le programme à utiliser pour les 
travaux pointus. 





Distribué par alpha systèmes à Grenoble 
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Bon de commande 


Disquettes 


HAIFA source (cf. Pom's n° 5) 
DISK-MANAGER (cf. Pom's n° 11) 
(cf. Pom's n° 13) 
(cf. Pom's n° 23) 
Échange E.P.E. 5.0 (cf. Pom's n° 23) 
PASCAL (cf. Pom's n° 15) 
(cf. Pom's n° 18) 
(cf. Pom's n° 19) 
(cf. Pom's n° 21) 
(cf. Pom's n° 25) 
(cf. Pom's n° 26) 


Recueils 


N°1, recueil des revues 1 à 4 140,00 F 
Disquettes d'accompagnement 1 à 4 200,00 F 
N°2, recueil des revues 5 à 8 140,00 F 
Disquettes d'accompagnement 5 à 8 200,00 F 
N°3, recueil des revues 9 à 12 140,00 F 
Disquettes d'accompagnement 9 à 12 200,00 F 


Revues, disquettes 
Revues 4 7 8 
Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 2526 
Revues 27 28 
Disquettes Apple IL, //e, //c 


125 ::4 . 5,6. .7: 8: 9.10: I 12. 5 14.35 
16 17 18 19 20 21 22 23 24 25 26 27 28 


Disquettes Macintosh 
14/15/16 groupées 
17 18 19 20 21 22 23 24 25 26 27 28 
Mac ‘A’ 
MacAstuces 
“Raccourci” 


Abonnements Pour 6 numéros à partir du n° 
Abonnement à la revue seule 
Abonnement revue + disquettes Apple IL, //e, //c 525,00 F 
Abonnement revue + disquettes Macintosh 625,00 F 
Reliures toilées 
Pour 6 numéros, un an de Pom’s 


Supplément avion hors CEE : ajoutez 15,00F par numéro et/ou disquette 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


Nom : 


Adresse : 


Imprimerie Rosay, 94300 Vincennes. Imprimé en France. Dépôt légal : Janvier 1987. N° 4122 


Pom's n° 28 








Bon de commande ‘Communication’ 


Pom's s'est intéressé ces derniers numéros à l'ouverture de votre ordinateur sur le 
monde extérieur. 


Pom’s26: Apple //, Carte SuperSérie & CP/M. Programme permettant de 
configurer simplement la SSC sous CP/M 


Pom’s27: Apple //, Carte SuperSérie & CP/M 2ème partie. La communication 
selon le protocole XMODEM. 
Apple // & Minitel. Programme d'enregistrement et de restitution à 
loisir des écrans Minitel (par l'interface Série). 
Macintosh & Minitel. Programme d'enregistrement et de restitution 
à loisir des écrans Minitel. 


InterPom’s Apple // et 
InterPom’s Macintosh pour transmettre des fichiers par Minitel. 


Je désire recevoir : 
Revue 26 27 28 à 45,00 
Disquette Apple // 26 27 28 à 60,00 
Disquette Macintosh 26 27 28 à 80,00 
»»»» Câble de liaison 
Apple ][+, //e, //e+ à 225,00 
Apple //c à 225,00 
Macintosh 128, 512 à 225,00 
Macintosh Plus à 225,00 


Je désire m'abonner : 
À compter du numéro 
(6 numéros, Un an, Possibilité d'abonnement rétroactif) 
Revues seules à 225,00 


Revues et disquette Apple // à 525,00 
Revues et disquettes Macintosh à 625,00 


Total TTC 
Supplément avion hors CEE : 15,00 F par numéro et/ou disquette 
Envoyez ce bon et votre règlement à : Éditions MEV, 64, rue des Chantiers 78000 Versailles 
Nom : 


Adresse : 








W&F Paris 





L'ORDINATEUR et L’'EN FRI 


MACINTOSH ÉFFICACE 


GUIDE MICRO 


[METHODE 





LORDINATEURINDIVIDUEL N881bis HORSYSERIE 












NOUVEAUX LANGAGES 


BULLETIN D'ABONNEMENT : à retourner à L'ORDINATEUR INDIVIDUEZ - 


5, place du Colonel-Fabien - 75491 Paris Cedex 10 


Oui, je m'abonne pour 1 an (11 numéros): 220 F au lieu de 2758 
prix total au numéro. 


Je joins mon règlement par chèque à l'ordre de L'ORDINATEUR 
INDIVIDUEL 


NOM 


Adresse 


L'ORDINATEUR INDIVIDUEL N° 94 JUILLET/ AOÛT 1987 







A la 
recherche 


du ER 
temps perdu = LJISCOLHS 
- de là 


méthode 























Prénom 


















Code postall_1 1 1 1 1 














Ville 








Pays __ 













Date 


A noter : Une photocopie de ce bulletin tient lieu de facture {prix indiqué TTC, TVA 4% incl} {0 











- Signature ——— 





Pom's 28 






